Nothing
## ----eval=FALSE---------------------------------------------------------------
# df <- read_civis("schema.tablename", database = "my-database")
## ----eval=FALSE---------------------------------------------------------------
# options(civis.default_db = "my-database")
# df <- read_civis("schema.tablename")
## ----eval=FALSE---------------------------------------------------------------
# query <- "SELECT * FROM table JOIN other_table USING id WHERE var1 < 23"
# df <- read_civis(sql(query))
## ---- eval=FALSE--------------------------------------------------------------
# data(iris)
# id <- write_civis_file(iris)
# df <- read_civis(id)
## ----eval=FALSE---------------------------------------------------------------
# query <- "SELECT * FROM table JOIN other_table USING id WHERE var1 < 23"
# df <- read_civis(sql(query), colClasses = "character")
# df2 <- read_civis(sql(query), as.is = TRUE)
## ----eval=FALSE---------------------------------------------------------------
# options(civis.default_db = "my_database")
# df <- data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100))
# write_civis(df, tablename = "schema.tablename",
# distkey = "id", sortkey1 = "date", sortkey2 = "type")
## ----eval=FALSE---------------------------------------------------------------
# write_civis(df, tablename = "schema.tablename", if_exists = "append")
# write_civis(df, tablename = "schema.tablename", if_exists = "truncate")
## ---- eval=FALSE--------------------------------------------------------------
# write_civis("~/path/to/my_data.csv", tablename="schema.tablename")
## ---- eval = FALSE------------------------------------------------------------
# # Upload a data frame
# data(iris)
# id <- write_civis_file(iris)
# iris2 <- read_civis(id)
#
# # Upload an arbitrary R object
# farm <- list(chickens = 1, ducks = 4, pigs = 2, cows = 1)
# id <- write_civis_file(farm)
# farm2 <- read_civis(id, using = readRDS)
#
## ---- eval = FALSE------------------------------------------------------------
# id <- write_civis_file("path/to/my_data.json")
# read_civis(id, using = jsonlite::fromJSON)
## ----eval=FALSE---------------------------------------------------------------
# query <- "SELECT * FROM table JOIN other_table USING id WHERE var1 < 23"
# download_civis(sql(query), file = "path/to/my_file.csv")
# download_civis("schema.tablename", file = "path/to/my_file.csv")
#
# id <- write_civis_file(iris)
# download_civis(id, file = "path/to/my_iris.rds")
## ----eval=FALSE---------------------------------------------------------------
# q_res <- query_civis("GRANT ALL ON schema.my_table TO GROUP admin")
## ---- eval = FALSE------------------------------------------------------------
# id <- q_res$id
# query_civis(id)
## ---- eval=FALSE--------------------------------------------------------------
# Error in api_key() :
# The environmental variable CIVIS_API_KEY is not set. Add this to your .Renviron or call Sys.setenv(CIVIS_API_KEY = '<api_key>')
## ---- eval=FALSE--------------------------------------------------------------
# read_civis(sql("SELECT * FROM schema.tablename WHERE 1 = 0"))
# Error in download_script_results(run$script_id, run$run_id) :
# Query produced no output.
## ---- eval=FALSE--------------------------------------------------------------
# Error in get_db(database) :
# Argument database is NULL and options("civis.default_db") not set. Set this option using options(civis.default_db = "my_database")
## ---- eval=FALSE--------------------------------------------------------------
# sapply(databases_list(), function(x) x$name)
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.