Nothing
context("consume data with public visibility, whole sheets")
test_that("gs_read() result not changing", {
skip("Subject to type discrepancies due to readr version.")
expect_equal_to_reference(gs_read(gs_ff(), verbose = FALSE),
test_path("for_reference/ff.rds"))
})
test_that("gs_read(), forcing cell feed, result not changing, matches gs_read()", {
skip("Subject to type discrepancies due to readr version.")
expect_equal_to_reference(gs_read(gs_ff(), range = "A1:F6", verbose = FALSE),
test_path("for_reference/ff.rds"))
})
test_that("gs_read_csv() result not changing, matches gs_read()", {
skip("Subject to type discrepancies due to readr version.")
expect_equal_to_reference(gs_read_csv(gs_ff(), verbose = FALSE),
test_path("for_reference/ff.rds"))
})
test_that("gs_read_listfeed() result not changing, matches gs_read()", {
skip("Subject to type discrepancies due to readr version.")
expect_equal_to_reference(gs_read_listfeed(gs_ff(), verbose = FALSE),
test_path("for_reference/ff.rds"))
})
test_that("gs_read_cellfeed() result not changing", {
skip("Subject to type discrepancies due to readr version.")
expect_equal_to_reference(gs_read_cellfeed(gs_ff(), verbose = FALSE),
test_path("for_reference/ff_cellfeed.rds"))
})
test_that("gs_read* matches readr::read_csv()", {
skip("Subject to type discrepancies due to readr version.")
tfile <- tempfile(pattern = "gs-test-formula-formatting", fileext = ".csv")
tfile <- gs_download(gs_ff(), to = tfile, overwrite = TRUE)
expect_equal_to_reference(
readr::read_csv(tfile), test_path("for_reference/ff.rds")
)
})
test_that("We can reshape data from the cell feed", {
oceania <- gs_gap() %>%
gs_read_cellfeed(ws = "Oceania", verbose = FALSE)
expect_true(all(names(oceania) %in%
c("cell", "cell_alt", "row", "col",
"value", "input_value", "numeric_value")))
y <- gs_reshape_cellfeed(oceania)
expect_equal(dim(y), c(24L, 6L))
expect_is(oceania$cell, "character")
expect_is(oceania$row, "integer")
expect_is(oceania$col, "integer")
expect_is(oceania$value, "character")
expect_equal(names(y),
c("country", "continent", "year", "lifeExp", "pop", "gdpPercap"))
z <- gs_reshape_cellfeed(oceania, col_names = FALSE)
expect_equal(dim(z), c(25L, 6L))
expect_true(all(grepl("^X[0-9]+", names(z))))
expect_equal(unique(sapply(z, class)), "character")
})
test_that("We get no error from gs_read on an empty sheet (pub)", {
pts_ss <- pts_key %>% gs_key(lookup = FALSE)
expect_is(tmp <- pts_ss %>% gs_read(ws = "empty"), "data.frame")
expect_identical(dim(tmp), c(0L, 0L))
})
test_that("We get no error from gs_read_csv on an empty sheet (pub)", {
pts_ss <- pts_key %>% gs_key(lookup = FALSE)
expect_is(tmp <- pts_ss %>% gs_read_csv(ws = "empty"), "data.frame")
expect_identical(dim(tmp), c(0L, 0L))
})
test_that("We get no error from gs_read_listfeed on an empty sheet (pub)", {
pts_ss <- pts_key %>% gs_key(lookup = FALSE)
expect_is(tmp <- pts_ss %>% gs_read_listfeed(ws = "empty"), "data.frame")
expect_identical(dim(tmp), c(0L, 0L))
})
test_that("We get no error from gs_read_cellfeed on an empty sheet (pub)", {
pts_ss <- pts_key %>% gs_key(lookup = FALSE)
expect_is(tmp <- pts_ss %>% gs_read_cellfeed(ws = "empty"), "data.frame")
expect_identical(dim(tmp), c(0L, 7L))
})
test_that("We can't access sheet that is 'public on the web' (pub)", {
expect_error(gotcha_key %>% gs_key(lookup = FALSE), "content-type")
})
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.