diff --git a/NAMESPACE b/NAMESPACE
index 13513ce1f6..a2d3053af4 100644
--- a/NAMESPACE
+++ b/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)
diff --git a/R/create_GDS.R b/R/create_GDS.R
index 7ebec527a5..7fcbe65cfd 100644
--- a/R/create_GDS.R
+++ b/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?
-}
\ No newline at end of file
+}
diff --git a/man/create_GDS.Rd b/man/create_GDS.Rd
new file mode 100644
index 0000000000..af5747188a
--- /dev/null
+++ b/man/create_GDS.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/create_GDS.R
+\name{create_GDS}
+\alias{create_GDS}
+\title{Create GDS Dataset}
+\usage{
+create_GDS(...)
+}
+\arguments{
+\item{...}{Arguments to \code{parse_GDS}}
+}
+\value{
+TRUE if successful
+}
+\description{
+Create GDS Dataset
+}