Nothing
#' Read APSIMX file
#'
#' @param path The file path or URL to apsimx file
#'
#' @return A list object of apsimx file
#' @export
#'
#' @examples
#' file <- system.file("wheat.apsimx", package = "rapsimng")
#' m <- read_apsimx(file)
read_apsimx <- function(path) {
jsonlite::read_json(path, simplifyDataFrame = FALSE,
simplifyVector = FALSE, simplifyMatrix = FALSE)
}
#' Write APSIMX file
#'
#' @param l the list of apsimx file
#' @param file The file path to apsimx file
#'
#' @return A list object of apsimx file
#' @export
write_apsimx <- function(l, file) {
jsonlite::write_json(l, file, pretty = TRUE, auto_unbox = TRUE, null = 'null')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.