not sure how `simplifyDataFrame=` nothing ever worked...

buildModelsForDeployment.R

@@ -22,8 +22,8 @@ pathogens <- c('all', unique(db$observedData$pathogen))
 factors   <- c('site_type','sex','flu_shot')
 
 geoLevels <- list( seattle_geojson = c('residence_puma','residence_neighborhood_district_name','residence_cra_name','residence_census_tract'),
-                   wa_geojson = c('residence_puma'), # census tract impossible due to memory limits
-                   king_county_geojson = c('residen#ce_census_tract')
+                   wa_geojson = c('residence_puma')#, # census tract impossible due to memory limits
+                   #king_county_geojson = c('residence_census_tract')
                  )
 
 

modelServR/R/saveModel.R

@@ -128,8 +128,8 @@ getModelIdFromQuery <- function(query) {
   setLevel("FINEST")
 
   #props <- getModelQueryObjectFromQuery(query)
-  modelId <- as.character(jsonlite::toJSON(query, simplifyDataFrame=))
-  logdebug("Model ID JSON:", jsonlite::toJSON(query, simplifyDataFrame=))
+  modelId <- as.character(jsonlite::toJSON(query))
+  logdebug("Model ID JSON:", jsonlite::toJSON(query))
   modelId <- digest::digest(modelId, serialize=FALSE)
   logdebug("Model ID Hash:", modelId)
   return(modelId)

modelServR/man/saveModel.Rd

@@ -5,7 +5,7 @@
 \title{saveModel: function to save models and register them in modelDB.csv}
 \usage{
 saveModel(model, modelStoreDir = Sys.getenv("MODEL_STORE",
-  "/home/rstudio/seattle_flu/test_model_store"))
+  "/home/rstudio/seattle_flu/test_model_store"), storeRDS = TRUE)
 }
 \arguments{
 \item{model}{INLA object}