tests/testthat/test-replace.R

In smartsheetr: Access and Write 'Smartsheet' Data using the 'Smartsheet' API 2.0

small_df = data.frame(primary_key = c(1,2), other_field = c(3,4))
big_df = mtcars

test_that("Replacing a small sheet with a big one works", {
  skip_if_offline()
  small_df = data.frame(primary_key = c(1,2), other_field = c(3,4))
  big_df = mtcars

  resp = ss_write_sheet(paste0("smartsheetr-test-",random_sheet_name()), small_df)
  ss_id = ss_sheetid(resp)
  ss_replace_sheet(ss_id, big_df)
  new_sheet_data = ss_read_sheet(ss_id)
  expect_equal(colnames(new_sheet_data), colnames(big_df))
  expect_equal(nrow(new_sheet_data), nrow(big_df))
  ss_delete_sheet(ss_id)
})

test_that("Replacing a big sheet with a small one works", {
  skip_if_offline()
  resp = ss_write_sheet(paste0("smartsheetr-test-",random_sheet_name()), big_df)
  ss_id = ss_sheetid(resp)
  ss_replace_sheet(ss_id, small_df)
  new_sheet_data = ss_read_sheet(ss_id)
  expect_equal(colnames(new_sheet_data), colnames(small_df))
  expect_equal(nrow(new_sheet_data), nrow(small_df))
  ss_delete_sheet(ss_id)
})