Nothing
repo
, read:repo_hook
, read:org
, and read:gpg_key
rights (if possible)
## Usage
```{r eval=FALSE}
# parse cli arguments
library(optparse)
option_list <- list(
make_option(c("-d", "--date"),
type="character",
default=as.character(as_date(with_tz(Sys.time(), "GMT"))),
help="date of execution"),
make_option(c("-t", "--test"),
action="store_true",
default=FALSE,
help="execute tests and mask writes to databases")
)
opt <- parse_args(OptionParser(option_list=option_list))
# execute with parsed arguments
run(opt$date, opt$test)
# main function which encapsulates high level functions of your program
run <- function(date, test) {
readData(...)
transformData(...)
trainModel(...)
ifelse(test, dbfaker::verifyWrite(...), writeData(...))
}
# components of your program
readData <- function(...) {}
transformData <- function(...) {}
trainModel <- function(...) {}
writeData <- function(...) {
dbWriteTable(...)
dbSendQuery(...)
}
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.