tests/testthat/test-save.R

In OpenRepGrid: Tools to Analyze Repertory Grid Data

require(openxlsx)


test_that("saveAsExcel", {
  file <- saveAsExcel(boeker, tempfile(fileext = ".xlsx"))
  expect_equal(getSheetNames(file), "grid")

  rgs <- randomGrids(nc = 3)
  file <- tempfile(fileext = ".xlsx")
  saveAsExcel(rgs, file)
  expect_equal(getSheetNames(file), paste("grid", 1:3))

  rgs <- randomGrids(nc = 3)
  file <- tempfile(fileext = ".xlsx")
  saveAsExcel(rgs, file, default_sheet = "xxxx")
  expect_equal(getSheetNames(file), paste("xxxx", 1:3))

  names(rgs) <- c("my grid", NA, NA)
  file <- tempfile(fileext = ".xlsx")
  saveAsExcel(rgs, file)
  expect_equal(getSheetNames(file), c("my grid", "grid 2", "grid 3"))
})


test_that("saveAsWorkbook", {
  wb <- createWorkbook()
  saveAsWorksheet(boeker, wb)
  expect_equal(names(wb), "grid")

  wb <- createWorkbook()
  rgs <- randomGrids(nc = 3)
  saveAsWorksheet(rgs, wb)
  expect_equal(names(wb), paste("grid", 1:3))

  wb <- createWorkbook()
  names(rgs) <- c("my grid", NA, NA)
  saveAsWorksheet(rgs, wb, default_sheet = "xxxx")
  expect_equal(names(wb), c("my grid", "xxxx 2", "xxxx 3"))

  wb <- createWorkbook()
  saveAsWorksheet(boeker, wb)
  expect_error(saveAsWorksheet(boeker, wb), "Worksheet ['\"]grid['\"] already exists") # windows renders \"
})