Merge pull request #13 from sorrychoe/develop

version 0.5.1 🚀

DESCRIPTION

@@ -1,33 +1,32 @@
-Package: RBigKinds
-Title: BigKinds Data Analysis Toolkit for R
-Version: 0.5.0.9000
-Authors@R: c(
-  person("Jaeseong", "Choe", "cjssoote@gmail.com", role = c("aut", "cre"))
-  )
-Description: RBigKinds is a library for Data Analysis of BigKinds data through R.
-Author: Jaeseonc Choe [aut, cre]
-Maintainer: Jaeseong Choe <cjssoote@gmail.com>
-License: MIT + file LICENSE
-Encoding: UTF-8
-Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
-Imports: 
-    dplyr,
-    ggplot2,
-    tibble,
-    tidytext,
-    tm,
-    wordcloud2,
-    arules,
-    dbscan,
-    topicmodels,
-    quanteda,
-    quanteda.textplots
-Suggests: 
-    knitr,
-    rmarkdown,
-    readxl,
-    testthat (>= 3.0.0)
-Config/testthat/edition: 3
-VignetteBuilder: knitr
-
+Package: RBigKinds
+Title: BigKinds Data Analysis Toolkit for R
+Version: 0.5.1.9000
+Authors@R: c(
+  person("Jaeseong", "Choe", "cjssoote@gmail.com", role = c("aut", "cre"))
+  )
+Description: RBigKinds is a library for Data Analysis of BigKinds data through R.
+Author: Jaeseonc Choe [aut, cre]
+Maintainer: Jaeseong Choe <cjssoote@gmail.com>
+License: MIT + file LICENSE
+Encoding: UTF-8
+Roxygen: list(markdown = TRUE)
+RoxygenNote: 7.3.1
+Imports: 
+    dplyr,
+    ggplot2,
+    tibble,
+    tidytext,
+    tm,
+    wordcloud2,
+    arules,
+    dbscan,
+    topicmodels,
+    quanteda,
+    quanteda.textplots
+Suggests: 
+    knitr,
+    rmarkdown,
+    readxl,
+    testthat (>= 3.0.0)
+Config/testthat/edition: 3
+VignetteBuilder: knitr

NAMESPACE

@@ -17,14 +17,22 @@ export(tfidf_vector)
 export(top_words)
 export(topic_modeling)
 export(word_tokenizer)
-import(arules)
 import(dbscan)
 import(dplyr)
 import(ggplot2)
-import(quanteda)
-import(quanteda.textplots)
 import(tibble)
-import(tidytext)
-import(tm)
 import(topicmodels)
 import(wordcloud2)
+importFrom(arules,apriori)
+importFrom(arules,inspect)
+importFrom(quanteda,as.dfm)
+importFrom(quanteda,fcm)
+importFrom(quanteda,fcm_select)
+importFrom(quanteda,topfeatures)
+importFrom(quanteda.textplots,textplot_network)
+importFrom(tidytext,bind_tf_idf)
+importFrom(tidytext,unnest_tokens)
+importFrom(tm,Corpus)
+importFrom(tm,DocumentTermMatrix)
+importFrom(tm,VectorSource)
+importFrom(tm,weightTfIdf)

R/RBigKinds.R

@@ -1,6 +1,6 @@
 #' RBigKinds: BigKinds Data Analysis Toolkit for R
 #'
-#' @docType package
+#' @docType _PACKAGE
 #' @name RBigKinds
 #' @description RBigKinds는 한국 언론의 빅데이터 저장소인 BigKinds에서 추출한 데이터를 low-Code로 분석할 수 있게 만든 툴입니다.
 #'

R/association.R

@@ -21,8 +21,7 @@
 #' 
 #' association(df, min_support = 0.1, minlen = 2, maxlen = 10)
 #' 
-#' @import arules
-#' @import tm
+#' @importFrom arules apriori inspect 
 #' 
 #' @export
 association <- function(df, min_support = 0.5, minlen=2, maxlen = 10) {

R/global.R

@@ -48,7 +48,7 @@ header_remover <- function(df) {
 #' data <- word_tokenizer(df)
 #' head(data)
 #' 
-#' @import tm
+#' @importFrom tidytext unnest_tokens
 #' @import tibble
 #' @import dplyr
 #' 
@@ -89,7 +89,6 @@ word_tokenizer <- function(df) {
 #' data <- keyword_dataframe(df)
 #' head(data)
 #' 
-#' @import tm
 #' @import tibble
 #' @import dplyr
 #' 
@@ -128,7 +127,6 @@ keyword_dataframe <- function(df) {
 #' data <- keyword_dataframe_no_duplicated(df)
 #' head(data)
 #' 
-#' @import tm
 #' @import tibble
 #' @import dplyr
 #' 
@@ -170,10 +168,9 @@ keyword_dataframe_no_duplicated <- function(df) {
 #' data <- tfidf(df)
 #' head(data)
 #' 
-#' @import tm
 #' @import tibble
 #' @import dplyr
-#' @import tidytext
+#' @importFrom tidytext bind_tf_idf
 #' 
 #' @export
 tfidf <- function(df) {
@@ -207,10 +204,9 @@ tfidf <- function(df) {
 #' data <- tfidf_vector(df)
 #' head(data)
 #' 
-#' @import tm
+#' @importFrom tm DocumentTermMatrix weightTfIdf Corpus VectorSource
 #' @import tibble
 #' @import dplyr
-#' @import tidytext
 #' 
 #' @export
 tfidf_vector <- function(df) {

R/nework_analysis.R

@@ -38,8 +38,8 @@ dcm <- function(df) {
 #' @param topwords feature 단어 갯수, 최대 50개까지 가능
 #' @param min_freq 그래프를 형성할 연결 최소 빈도 수
 #' 
-#' @import quanteda
-#' @import quanteda.textplots
+#' @importFrom quanteda fcm as.dfm topfeatures fcm_select
+#' @importFrom quanteda.textplots textplot_network
 #' 
 #' @export
 network_graph <- function(dcm, topwords = 50, min_freq=0.5){

R/topic_model.R

@@ -20,7 +20,6 @@
 #'
 #' @import topicmodels
 #' @import dplyr
-#' @import tm
 #' 
 #' @export
 topic_modeling <- function(df, k, method="Gibbs") {

RBigKinds.Rproj

@@ -1,23 +1,23 @@
-Version: 1.0
-
-RestoreWorkspace: No
-SaveWorkspace: No
-AlwaysSaveHistory: No
-
-EnableCodeIndexing: Yes
-UseSpacesForTab: Yes
-NumSpacesForTab: 2
-Encoding: UTF-8
-
-RnwWeave: Sweave
-LaTeX: pdfLaTeX
-
-LineEndingConversion: Windows
-
-BuildType: Package
-PackageUseDevtools: Yes
-PackageInstallArgs: --no-multiarch --with-keep.source
-
-UseNativePipeOperator: Yes
-
-SpellingDictionary: en_US
+Version: 1.0
+
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: No
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+LineEndingConversion: Windows
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source
+
+UseNativePipeOperator: Yes
+
+SpellingDictionary: en_US