tests/shiny_app/test-data.R

library(data.table)
dt <- data.table(
  ID = c(1:5, NA, NaN, Inf),
  desc = c(paste0("salut", 1:5), "", " ", "_")
)
saveRDS(dt, "tests/shiny_app/test-data.rds")
guiboucher/INESSS-inesss documentation built on April 20, 2020, 10:47 p.m.