tests/testthat/test-add-files.R

#
# shiny::testServer(addFilesServer, args = list(add_file_counter = reactiveVal()), {
#   session$setInputs(csv_file = "0201_01_02_attitudini_etichette.csv",
#                     xml_file = "0201_01_02_attitudini.xml",
#                     add_file = 1)
#   expect_condition(is.data.frame(addFilesOutput$DF))
#   expect_condition(ncol(addFilesOutput$DF) == length(addFilesOutput$vars))
# })
#
#
mandel94/easyAnalysis documentation built on Jan. 2, 2022, 9:52 a.m.