tests/testthat/test-write.xlsx.R

In dragua/xlsx: Read, Write, Format Excel 2007 and Excel 97/2000/XP/2003 Files

context('write.xlsx')

test_that("can write to home directory", {
  # issue #108
  skip("broken at present")
  skip_on_cran()
  dat <- data.frame(1:10)
  filepath <- "~/__xx__xlsx__test_homedir.xlsx"
  
  # how can you protect such an operation?
  expect_null(write.xlsx(dat, file = filepath))
  read.xlsx(filepath)
  unlink(filepath)
})

test_that('DateTime classes work', {
  ## issue #45
  hours <- seq(as.POSIXct("2011-01-01 01:00:00", tz="GMT"),
               as.POSIXct("2011-01-01 10:00:00", tz="GMT"), by="1 hour")
  df <- data.frame(x=1:10, datetime=hours)
  
  write.xlsx(df, test_tmp("issue45.xlsx"))
  
  df.in <- read.xlsx2(test_tmp("issue45.xlsx"), sheetIndex=1,
                      colClasses=c("numeric", "numeric", "POSIXct"))
  df.in$datetime <- round(df.in$datetime)
  
  expect_identical(as.numeric(df.in$datetime),as.numeric(hours))
})

test_that('works in pipeline', {
  test_complex_export('xls')
  test_complex_export('xlsx')
})

context('write.xlsx2')

test_that('write password protected workbook succeeds', {
  ## issue #49
  
  x <- data.frame(values=c(1,2,3),stringsAsFactors=FALSE)
  filename <- test_tmp('issue49.xlsx')
  
  ## write
  write.xlsx2(x, filename, password='test', row.names=FALSE)
  
  ## read
  r <- read.xlsx2(filename, sheetIndex = 1, password='test'
                  , stringsAsFactors=FALSE
                  , colClasses = 'numeric')
  
  expect_identical(x, r)
})

context('low-level interface')

test_that('works in pipeline', {
  skip_on_os(c("linux"))
  test_basic_export('xls')
  test_basic_export('xlsx')
})