fix r cmd check by making examples dont run

R/MetaNLP.R

@@ -36,15 +36,17 @@ setClass("MetaNLP", representation(data_frame = "data.frame"))
 #' An object of class \code{MetaNLP} contains a slot data_frame where
 #' the word count data frame is stored.
 #' The CSV file must have a column \code{ID} to identify each paper, a column
-#' \code{Title} with the belonging titles of the papers and a column
-#' \code{Abstract} which contains the abstracts. Furthermore, to store the
-#' decision for each paper, a column \code{Decision} should exist, where the
+#' \code{title} with the belonging titles of the papers and a column
+#' \code{abstract} which contains the abstracts. Furthermore, to store the
+#' decision for each paper, a column \code{decision} should exist, where the
 #' values are either "yes" and "no" or "include" and "exclude". The value "maybe"
 #' is handled as a "yes"/"include".
 #'
 #' @rdname MetaNLP
 #' @export
 MetaNLP <- function(path, bounds = c(2, Inf), word_length = c(3, Inf)) {
+  title <- NULL
+  abstract <- NULL
 
   # load file
   file <- utils::read.csv(path, header = TRUE, sep = ";")
@@ -62,7 +64,7 @@ MetaNLP <- function(path, bounds = c(2, Inf), word_length = c(3, Inf)) {
     within(x <- paste(title, abstract)) |>
     (`[[`)(c("x")) |>
     # lower case
-    tolower()|>
+    tolower() |>
     # lemmatization of the words
     textstem::lemmatize_strings() |>
     tm::VectorSource() |>

R/delete_functions.R

@@ -23,9 +23,11 @@ setGeneric("delete_words", function(object, delete_list) {
 
 
 #' @examples
-#' obj<- MetaNLP("tests/testthat/data/test_data.csv")
+#' \dontrun{
+#' obj<- MetaNLP("test_data.csv")
 #' del_words <- c("beautiful", "considering", "found")
 #' obj <- delete_words(obj, del_words)
+#' }
 #'
 #' @rdname delete_words
 #' @export
@@ -71,8 +73,10 @@ setGeneric("delete_stop_words", function(object, ...) {
 })
 
 #' @examples
-#' obj <- MetaNLP("tests/testthat/data/test_data.csv")
+#' \dontrun{
+#' obj <- MetaNLP("test_data.csv")
 #' obj <- delete_stop_words(obj, "english")
+#' }
 #'
 #' @rdname delete_stop_words
 #' @export

tests/testthat/test_deletion.R

@@ -2,7 +2,8 @@ test_that("Deletion functions work", {
 
   # The first four words of the vector exist in (possibly modified) form in the
   # word count matrix of the test data
-  obj <- MetaNLP("data/test_data.csv")
+  source_path <- test_path("data", "test_data.csv")
+  obj <- MetaNLP(source_path)
   deletion_list <- c("beautiful", "considering", "facts", "find", "algebra")
   obj_delete <- delete_words(obj, deletion_list)
   obj_stop_words <- delete_stop_words(obj)