Single

Makefile

@@ -8,10 +8,12 @@ NAMESPACE: R/*
 README.md: README.Rmd
 	Rscript -e "knitr::knit('README.Rmd')"
 
+R/sysdata.rda: data-raw/single.json
+	Rscript data-raw/convert.R
 README.html: README.md
 	pandoc -o README.html README.md
 
-../$(pkg)*.tar.gz: DESCRIPTION NAMESPACE README.md R/* man/* tests/testthat/* po/R-rio.pot
+../$(pkg)*.tar.gz: DESCRIPTION NAMESPACE README.md R/* man/* tests/testthat/* po/R-rio.pot R/sysdata.rda
 	cd ../ && R CMD build $(pkg)
 
 build: ../$(pkg)*.tar.gz

R/suggestions.R

@@ -15,7 +15,7 @@ install_formats <- function(...) {
     if (length(to_install)) {
         utils::install.packages(to_install, ...)
     }
-    return(TRUE)
+    invisible(TRUE)
 }
 
 uninstalled_formats <- function() {
@@ -28,11 +28,12 @@ uninstalled_formats <- function() {
     # 1.2.0)`) suggested in the `DESCRIPTION` file. However, this seems a bit
     # recursive, as `devtools` or `remotes` are often also in the `Suggests`
     # field.
-    suggestions <- read.dcf(system.file("DESCRIPTION", package = utils::packageName(), mustWork = TRUE), fields = "Suggests")
-    suggestions <- parse_suggestions(suggestions)
-    common_suggestions <- c("bit64", "datasets", "devtools", "knitr", "magrittr", "testthat")
-    suggestions <- setdiff(suggestions, common_suggestions)
-
+    ## suggestions <- read.dcf(system.file("DESCRIPTION", package = utils::packageName(), mustWork = TRUE), fields = "Suggests")
+    ## suggestions <- parse_suggestions(suggestions)
+    ## common_suggestions <- c("bit64", "datasets", "devtools", "knitr", "magrittr", "testthat")
+    ## suggestions <- setdiff(suggestions, common_suggestions)
+    all_functions <- unlist(rio_formats[rio_formats$type == "suggest", c("import_function", "export_function")], use.names = FALSE)
+    suggestions <- unique(stats::na.omit(stringi::stri_extract_first(all_functions, regex = "[a-zA-Z0-9\\.]+")))
     # which are not installed
     unlist(lapply(suggestions, function(x) {
         if (length(find.package(x, quiet = TRUE))) {
@@ -43,9 +44,9 @@ uninstalled_formats <- function() {
     }))
 }
 
-parse_suggestions <- function(suggestions) {
-    suggestions <- unlist(strsplit(suggestions, split = ",|, |\n"))
-    suggestions <- gsub("\\s*\\(.*\\)", "", suggestions)
-    suggestions <- sort(suggestions[suggestions != ""])
-    suggestions
-}
+## parse_suggestions <- function(suggestions) {
+##     suggestions <- unlist(strsplit(suggestions, split = ",|, |\n"))
+##     suggestions <- gsub("\\s*\\(.*\\)", "", suggestions)
+##     suggestions <- sort(suggestions[suggestions != ""])
+##     suggestions
+## }

data-raw/readme.md

@@ -0,0 +1,11 @@
+
+Please edit the json file if you have made change related to formats.
+
+`convert.R` will prettify the json file as well as regenerate the internal data (`R/sysdata.rda`)
+
+If you prefer, you can also use the `Makefile`
+
+```R
+make R/sysdata.rda
+```
+

tests/testthat/test_install_formats.R

@@ -9,12 +9,3 @@ test_that("uninstalled_formats()", {
         expect_type(formats, "character")
     }
 })
-
-test_that("install_formats()", {
-    suggestions <- read.dcf("../testdata/example-DESCRIPTION",
-                            fields = "Suggests")
-    suggestions <- parse_suggestions(suggestions)
-    expect_true("NANTUCKET" %in% suggestions)
-    expect_true("readODS" %in% suggestions)
-    expect_false("devtools" %in% suggestions)
-})