library(testthat)
if (!("keboola.sapi.r.client" %in% installed.packages())) {
library(devtools)
devtools::install_github("keboola/sapi-r-client")
}
library(keboola.sapi.r.client)
# override with config if any
if (file.exists("config.R")) {
source("config.R")
}
# override with environment if any
if (nchar(Sys.getenv("KBC_TOKEN")) > 0) {
KBC_TOKEN <- Sys.getenv("KBC_TOKEN")
}
cl <- SapiClient$new(KBC_TOKEN)
tryCatch({
snowflakeWorkspace <- cl$createWorkspace(backend="snowflake")
SNFLK_HOST <- snowflakeWorkspace$connection$host
SNFLK_DB <- snowflakeWorkspace$connection$database
SNFLK_USER <- snowflakeWorkspace$connection$user
SNFLK_PASSWORD <- snowflakeWorkspace$connection$password
SNFLK_SCHEMA <- snowflakeWorkspace$connection$schema
redshiftWorkspace <- cl$createWorkspace(backend="redshift")
RS_HOST <- redshiftWorkspace$connection$host
RS_DB <- redshiftWorkspace$connection$database
RS_SCHEMA <- redshiftWorkspace$connection$schema
RS_USER <- redshiftWorkspace$connection$user
RS_PASSWORD <- redshiftWorkspace$connection$password
rep <- MultiReporter$new(
reporters = list(SummaryReporter$new(), FailReporter$new(), CheckReporter$new())
)
test_check("keboola.backend.r.client", reporter = rep)
}, finally = {
cl$dropWorkspace(snowflakeWorkspace$id)
cl$dropWorkspace(redshiftWorkspace$id)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.