Minor changes to project structure.

Author: jacobkap

DESCRIPTION

@@ -13,7 +13,8 @@ Suggests:
     covr,
     knitr,
     rmarkdown,
-    spelling
+    spelling,
+    usethis
 RoxygenNote: 6.1.1
 URL: https://github.com/jacobkap/meditations
 BugReports: https://github.com/jacobkap/meditations/issues

R/data.R

@@ -1,10 +1,37 @@
+clean_data <- function() {
+
+  file <- system.file("inst/extdata",
+                      "meditations.txt",
+                      package = "meditations")
+
+  raw_book <- suppressWarnings(readLines(file))
+  # Remove intro and closing non-book text
+  raw_book <- raw_book[15:4315]
+
+  raw_book <- gsub("^BOOK.*|-----.*", "", raw_book)
+
+  meditations_quotes <- c()
+  temp <- ""
+  for (i in 1:length(raw_book)) {
+    temp <- paste(temp, raw_book[i])
+    if (raw_book[i] == "") {
+      meditations_quotes <- c(meditations_quotes, temp)
+      temp <- ""
+    }
+  }
+  meditations_quotes <- trimws(meditations_quotes)
+  meditations_quotes <- meditations_quotes[meditations_quotes != ""]
+  meditations_quotes <- data.frame(quotes = meditations_quotes,
+                                   stringsAsFactors = FALSE)
+  usethis::use_data(meditations_quotes, internal = FALSE)
+}
 
 
 #' All 507 quotes from Marcus Aurelius' book Meditations
 #'
 #' A dataset containing the complete list of quotes of Marcus Aurelius from Meditations
 #'
-#' @format A data frame with 53940 rows and 10 variables:
+#' @format A data frame with 507 rows and 1 variable:
 #' \describe{
 #'   \item{quotes}{The text of the quote}
 #'   ...

R/main.R

@@ -19,9 +19,9 @@ meditations <- function(number = NULL) {
   }
 
   if (is.null(number)) {
-    return(sample(meditations_quotes$quotes, 1))
+    return(sample(meditations::meditations_quotes$quotes, 1))
   } else {
-    return(meditations_quotes$quotes[number])
+    return(meditations::meditations_quotes$quotes[number])
   }
 }