easier?

Author: maelle

R/spell-check-bookdown.R

@@ -46,9 +46,7 @@ spell_check_bookdown <- function(path = ".", lang = NULL, use_wordlist = TRUE){
   # Add custom words to the ignore list
 
   add_words <- if(isTRUE(use_wordlist))
-    unlist(strsplit(readLines(get_wordfile(path),
-                              warn = FALSE, encoding = "UTF-8"), " ",
-                    fixed = TRUE))
+    get_wordfile(path)
 
   if (file.exists(file.path(path, "DESCRIPTION"))){
     pkg <- as_package(path)

R/spell-check.R

@@ -93,8 +93,13 @@ as_package <- function(pkg){
   description <- if(file.exists(file.path(path, "DESCRIPTION.in"))){
     file.path(path, "DESCRIPTION.in")
   } else {
-    normalizePath(file.path(path, "DESCRIPTION"), mustWork = TRUE)
+    normalizePath(file.path(path, "DESCRIPTION"), mustWork = FALSE)
   }
+
+  if (!file.exists(description)) {
+    return(list(path = pkg))
+  }
+
   pkg <- read.dcf(description)[1,]
   Encoding(pkg) = "UTF-8"
   pkg <- as.list(pkg)