context("copy_to()")
test_that("copy_to() succeeds on a very small data frame", {
skip_for_codecov()
check_impala()
set.seed(seed = NULL)
table_name <- paste0(sample(letters, 10, replace = TRUE), collapse = "")
dbExecute(impala, paste0("DROP TABLE IF EXISTS ", table_name))
Sys.sleep(2)
copy_to(
impala,
nycflights13::airlines[1:5, ],
name = table_name,
temporary = FALSE,
field_terminator = "\t",
line_terminator = "\n"
)
airlines_impala <-
dbGetQuery(impala, paste0("SELECT * FROM ", table_name, " ORDER BY carrier"))
# right-trim variable length strings because RJDBC pads them with spaces
airlines_impala$name <- gsub(" +$", "", airlines_impala$name)
# clean up
Sys.sleep(2)
dbExecute(impala, paste0("DROP TABLE IF EXISTS ", table_name))
airlines_reference <- nycflights13::airlines %>% head(5) %>%
arrange(carrier) %>% as.data.frame()
compare_tbls(list(airlines_reference, airlines_impala), op = function(x) x)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.