tests/testthat/test-comments.R

context("Comments")

test_that("multiline comments are returned in full", {
  expect_equal(xlsx_cells("examples.xlsx")$comment[19],
               "commentwithtextformatting")
})

test_that("comments on blank cells are returned", {
  expect_equal(xlsx_cells("comment-on-blank-cell.xlsx")$comment,
               c(NA, "comment on blank cell"))
})

Try the tidyxl package in your browser

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

tidyxl documentation built on May 29, 2024, 2:34 a.m.