Export create_GDS; HTML output off for now #9

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export(convert_to_json)
+export(create_GDS)
 export(create_NSSH)
 export(create_OSD)
 export(get_assets)

R/create_GDS.R

@@ -14,19 +14,19 @@ download_GDS <- function() {
                 url = "https://www.nrcs.usda.gov/Internet/FSE_DOCUMENTS/nrcs142p2_051068.pdf")
 
   system(sprintf("pdftotext -raw -nodiag GDS.pdf"))
-  system(sprintf("pdftohtml GDS.pdf"))
+  # system(sprintf("pdftohtml GDS.pdf"))
 
   file.remove("GDS.pdf")
 
   dir.create("inst/extdata/GDS", recursive = TRUE)
   file.copy("GDS.txt","inst/extdata/GDS/GDS.txt")
 
-  htm <- list.files(pattern = "html")
-  file.copy(htm,"inst/extdata/GDS")
+  # htm <- list.files(pattern = "html")
+  # file.copy(htm,"inst/extdata/GDS")
 
-  img <- list.files(pattern = "png|jpg")
-  file.copy(img,"inst/extdata/GDS")
-  file.remove(c("GDS.txt", img, htm))
+  # img <- list.files(pattern = "png|jpg")
+  # file.copy(img,"inst/extdata/GDS")
+  # file.remove(c("GDS.txt", img, htm))
 }
 
 parse_GDS <- function() {
@@ -54,4 +54,4 @@ parse_GDS <- function() {
   # - geomorphic environments and other groupings: associations of terms grouped by process or setting
   # TODO: Surface Morphometry
   # - Several important figures and tables -- pdftohtml?
-}
+}