inst/tinytest/test_import.R

In tesselle/janus: 'shiny' Applications for the 'tesselle' Packages

library("shiny")

# Import =======================================================================
path <- system.file("tinytest", "fake.csv", package = "arkhe")
fake <- read.csv(path)

testServer(import_server, {
  session$setInputs(header = TRUE, sep = ",",
                    dec = ".", quote = "\"'", rownames = FALSE,
                    na.strings = "NA", skip = 0, comment = "#")

  session$setInputs(file = list(datapath = "path.txt"), go = 1)
  expect_null(data$values)

  session$setInputs(file = list(datapath = path), go = NULL)
  expect_null(data$values)

  session$setInputs(file = list(datapath = path), go = 1)
  expect_equal(data$values, fake)
})