#' GetPreliminaryDefaultValues
#'
#' Get preliminary default values for input data columns.
#'
#' @return list of default values
#'
#' @examples
#' GetPreliminaryDefaultValues()
#'
#' @export
GetPreliminaryDefaultValues <- function()
{
columnSpecs <- GetListObject(system.file("referenceData/requiredColumns.R",
package = "hivEstimatesAccuracyReloaded"),
includeFileName = FALSE)
defaultValues <- lapply(columnSpecs, function(columnSpec) {
defaultValue <- columnSpec$defaultValue
if (is.null(defaultValue)) {
return("")
} else {
return(defaultValue)
}
})
return(defaultValues)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.