You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

13 lines
362 B

stop_for_problem <- function(res) {
if (is.null(res$result)) stop(res$error$message, call.=FALSE) else res$result
}
.get_app_dir <- function() {
ddir <- file.path(Sys.getenv("HOME"), ".rdecapdata")
if (!dir.exists(ddir)) {
message(sprintf("Creating application data directory [%s]...", ddir))
dir.create(ddir, recursive=TRUE)
}
return(ddir)
}