Nothing
context("download sheets")
test_that("Spreadsheet can be exported", {
temp_dir <- tempdir()
# bad format
expect_error(gs_download(gs_mini_gap(), to = "pts.txt"),
"Cannot download Google spreadsheet as this format")
# good formats
fmts <- c("xlsx", "pdf", "csv")
to_files <- file.path(temp_dir, paste0("oceania.", fmts))
for(to in to_files) {
expect_message(gs_mini_gap() %>%
gs_download(ws = "Oceania", to = to, overwrite = TRUE),
"successfully downloaded")
}
expect_true(all(file.exists(to_files)))
expect_true(all(file.remove(to_files)))
})
test_that("Spreadsheet can be exported w/o specifying the worksheet", {
temp_dir <- tempdir()
to_nominal <- file.path(temp_dir, "sheet_one.csv")
expect_message(to_actual <-
gs_mini_gap() %>%
gs_download(to = to_nominal, overwrite = TRUE),
"successfully downloaded")
expect_true(file.exists(to_actual))
expect_true(identical(normalizePath(to_nominal), normalizePath(to_actual)))
expect_true(file.remove(to_actual))
})
test_that("Spreadsheet can be exported w/o specifying 'to'", {
mg <- gs_mini_gap()
expect_message(to_actual <-
gs_mini_gap() %>%
gs_download(overwrite = TRUE),
"successfully downloaded")
expect_true(file.exists(to_actual))
expect_match(basename(to_actual), paste(mg$sheet_title, "xlsx", sep = "."))
expect_true(file.remove(to_actual))
})
test_that("Old Sheets can be exported", {
## 2016-03-15
## decommissioning this
## I haven't seen an old sheet in a long time
## if this gets re-activated, note check_old_sheet() currently requires auth
## move it out of here or re-write check_old_sheet()
skip("skipping a test re: \"old\" sheets")
## don't even bother if we can't see this sheet in the spreadsheets feed or if
## it's been "helpfully" converted to a new sheet by google AGAIN :(
check_old_sheet()
temp_dir <- tempdir()
## we must register by title, in order to get info from the spreadsheets feed,
## which, in turn, is the only way to populate the alt_key
## this means we must have visited the sheet in the browser at least once!
ss <- gs_title(old_title)
# csv should not work
expect_error(ss %>% gs_download(to = file.path(temp_dir, "old.csv")),
"not supported")
# good formats and different specifications
expect_message(ss %>% gs_download(to = file.path(temp_dir, "old.xlsx"),
overwrite = TRUE),
"successfully downloaded")
expect_message(ss %>% gs_download(to = file.path(temp_dir, "old.xlsx"),
overwrite = TRUE),
"successfully downloaded")
expect_message(ss %>% gs_download(to = file.path(temp_dir, "old.pdf"),
overwrite = TRUE),
"successfully downloaded")
expect_true(all(file.exists(file.path(temp_dir, c("old.xlsx", "old.pdf")))))
expect_true(all(file.remove(file.path(temp_dir, c("old.xlsx", "old.pdf")))))
})
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.