Fix getMainCategory() function.

Author: mrchypark

DESCRIPTION

@@ -16,7 +16,6 @@ RoxygenNote: 7.2.3
 Depends: 
     R (>= 3.5.0)
 Encoding: UTF-8
-LazyData: true
 Suggests: 
     testthat,
     devtools,

NEWS.md

@@ -1,5 +1,8 @@
 # N2H4 0.8.4
 
+* getMainCategory() 함수를 수정했습니다.
+* Fix getMainCategory() function.
+
 # N2H4 0.8.3
 
 * 페이지 구조가 변하여 getUrlList() 함수와 getMaxPageNum() 함수를 사용할 수 없어 제거하였습니다.

R/getCategory.R

@@ -48,14 +48,14 @@ getMainCategory <- function() {
     rvest::html_attr("href") -> links
 
   titles <-
-    titles[grep("\\/main\\/main.naver\\?mode=LSD&mid=shm&sid1=1", links)]
+    titles[grep("section", links)]
   titles <- trimws(titles)
   links <-
-    links[grep("\\/main\\/main.naver\\?mode=LSD&mid=shm&sid1=1", links)]
+    links[grep("section", links)]
 
-  sid1 <- sapply(strsplit(links, "="),
+  sid1 <- sapply(strsplit(links, "/"),
                  function(x) {
-                   x[4]
+                   x[5]
                  })
 
   urls <-