dwww Home | Show directory contents | Find package

# ---- nm_fun ----
me_ <- nm_fun("TEST-sheet_rename")

# ---- tests ----
test_that("internal copy works", {
  skip_if_offline()
  skip_if_no_token()

  ss <- local_ss(
    me_(),
    sheets = list(iris = head(iris), chickwts = head(chickwts))
  )
  ss %>%
    sheet_rename(2, new_name = "poultry") %>%
    sheet_rename(1, new_name = "flowers")
  out <- sheet_names(ss)
  expect_equal(out, c("flowers", "poultry"))
})

Generated by dwww version 1.15 on Sat May 18 12:10:32 CEST 2024.