parseOSD updates and testing

NAMESPACE

@@ -19,7 +19,10 @@ importFrom(rvest,html_node)
 importFrom(rvest,html_nodes)
 importFrom(rvest,html_text)
 importFrom(stats,aggregate)
+importFrom(stringi,stri_detect_fixed)
 importFrom(stringi,stri_enc_toascii)
+importFrom(stringi,stri_match)
+importFrom(stringi,stri_match_all)
 importFrom(stringi,stri_trans_general)
 importFrom(tibble,as_tibble)
 importFrom(tools,file_ext)

R/create_OSD.R

@@ -373,7 +373,11 @@ osd_to_json <- function(logfile = file.path(output_dir, "OSD/OSD.log"),
 
     x <- validateOSD(logfile, filepath)
 
-    typicalpedon <- .parseTypicalPedon(x[["TYPICAL PEDON"]])
+    parsed.OSD <- .doParseOSD(x)
+
+    # SPC-style components from parseOSD returned as nested data.frames in JSON
+    x$SITE <- I(list(parsed.OSD$`site-data`))
+    x$HORIZONS <- I(list(parsed.OSD$`hz-data`))
 
     if (is.logical(x))
       if (!x) return(FALSE)
@@ -385,14 +389,10 @@ osd_to_json <- function(logfile = file.path(output_dir, "OSD/OSD.log"),
 
     fn <- gsub("\\.txt", "\\.json", basename(all_osds[[i]]))
 
-    write(jsonlite::toJSON(x, pretty = TRUE, auto_unbox = TRUE),
+    write(jsonlite::toJSON(x, pretty = TRUE, auto_unbox = FALSE),
           file = file.path(fld, fn))
     return(TRUE)
   })
   names(res) <- all_osds
   return(res)
 }
-
-.parseTypicalPedon <- function(section) {
-
-}