Fix getMainCategory() function.

forkonlp · Feb 25, 2024 · 845a1ff · 845a1ff
1 parent 7d0f4f9
commit 845a1ff
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -16,7 +16,6 @@ RoxygenNote: 7.2.3
 Depends: 
     R (>= 3.5.0)
 Encoding: UTF-8
-LazyData: true
 Suggests: 
     testthat,
     devtools,

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

diff --git a/R/getCategory.R b/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 <-

diff --git a/man/N2H4-package.Rd b/man/N2H4-package.Rd