tests/testthat/test.extractSheetName.R

test_that("extractSheetName extracts sheet names from formulas", {
  formulas <- c("MySheet!$A$1", "'My Sheet'!$A$1", "'My!Sheet'!$A$1", "MySheet")
  expected <- c("MySheet", "My Sheet", "My!Sheet", "")
  expect_equal(extractSheetName(formulas), expected)
})

Try the XLConnect package in your browser

Any scripts or data that you put into this service are public.

XLConnect documentation built on Feb. 24, 2026, 9:06 a.m.