tests/testthat/test-exportar_excel.R

test_that("exporta a archivo", {
  archivo <- tempfile(fileext = ".xlsx")
  expect_error(exportar_excel(perfiles, archivo), NA)

  expect_true(file.exists(archivo))
})
INTA-Suelos/SISINTAR documentation built on June 30, 2023, 7:43 p.m.