Nothing
## ---- echo = FALSE-------------------------------------------------------
NOT_CRAN <- identical(tolower(Sys.getenv("NOT_CRAN")), "true")
CONFIGURED <- Sys.getenv("DW_AUTH_TOKEN", unset = "") != ""
knitr::opts_chunk$set(
collapse = FALSE,
comment = "##",
purl = NOT_CRAN & CONFIGURED,
eval = NOT_CRAN & CONFIGURED
)
## ----configure-----------------------------------------------------------
dwapi::configure(auth_token = Sys.getenv("DW_AUTH_TOKEN"))
## ----create_dataset------------------------------------------------------
create_cars_dataset <- dwapi::dataset_create_request(
title = sprintf("My cars dataset %s", runif(1)),
visibility = "PRIVATE",
license_string = "Other"
)
cars_dataset <- dwapi::create_dataset(Sys.getenv("DW_USER"), create_cars_dataset)
cars_dataset
## ----update_dataset------------------------------------------------------
update_cars_dataset <- dwapi::dataset_update_request(
description = "This is a dataset created from R's cars dataset."
)
dwapi::update_dataset(cars_dataset$uri, update_cars_dataset)
## ----upload_data_frame---------------------------------------------------
upload_response <- dwapi::upload_data_frame(cars_dataset$uri, cars, "cars.csv")
Sys.sleep(10) # Files are processed asyncronously.
upload_response
## ----query---------------------------------------------------------------
sql_query <- "SELECT * FROM cars"
dwapi::sql(cars_dataset$uri, sql_query)
## ----cleanup, echo = FALSE-----------------------------------------------
dwapi::delete_dataset(cars_dataset$uri)
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.