tests/testthat/test-gs-yy-download.R

In jennybc/googlesheets: Manage Google Spreadsheets from R

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")))))

})