context("array")
library(DBI, warn.conflicts=F)
library(dplyr, warn.conflicts=F) # for data_frame
source("utils.R")
test_that("reading & writing array columns", {
writeReadTest(as.data.frame(tibble(x=list(c(1,3,5),c(1,2)))))
})
test_that("nullable array columns", {
writeReadTest(as.data.frame(tibble(x=list(c(1,NA,3,5),c(1,2,NA)))))
})
test_that("array columns with empty entries", {
writeReadTest(as.data.frame(tibble(x=list(c(1,2,3),as.numeric(c()),c(4,5)))))
})
# adding Data to CH containing columns with spaces
test_that("columns with spaces", {
writeReadTest(as.data.frame(data.frame(
"capitals"=c("Vienna","Washington D.C.", "Paris", "London"),
"best sights"=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
"Col with space"=1:4,
stringsAsFactors=FALSE,
check.names=FALSE
)))
})
test_that("columns with spaces quoted with backticks", {
writeReadTest(as.data.frame(data.frame(
"`capitals`"=c("Vienna","Washington D.C.", "Paris", "London"),
"`best sights`"=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
"`Col with space`"=1:4,
stringsAsFactors=FALSE,
check.names=FALSE
)))
})
test_that("columns with spaces quoted with DoubleQuotes", {
writeReadTest(as.data.frame(data.frame(
'"capitals"'=c("Vienna","Washington D.C.", "Paris", "London"),
'"best sights"'=c("Viennese Opera","Lincoln Memorial", "Eiffel Tower", "London Bridge"),
'"Col with space"'=1:4,
stringsAsFactors=FALSE,
check.names=FALSE
)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.