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
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)
|
|
}
|