## helpers
ds_isvalid <- function(ds) {
stopifnot(is_scalar_character(ds))
finfo <- ds_infofile(ds)
if (file.exists(finfo)) {
res <- fromJSON(finfo)
stopifnot(is.list(res), length(res) == 6)
stopifnot(names(res) == c("ds_name", "created_at", "datastore_path", "last_indexed", "datasets", "info"))
if (!is.na(res$info) && length(list.files(ds_filepath(ds))) != nrow(res$info)) {
# recreate (perhaps files have been manually deleted)
ds_update_index(ds, verbose = FALSE)
}
}
return(invisible(TRUE))
}
ds_infofile <- function(ds) {
file.path(ds, "datastore", "DATASTORE")
}
ds_filepath <- function(ds) {
file.path(ds, "datastore", "files")
}
ds_timestamp <- function() {
format(Sys.time(), "%Y%m%d_%H%M")
}
ds_sep <- function() {
"_-__-_"
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.