#inside console
## Check valid types
result <- periscope2::downloadFile_AvailableTypes()
identical(result, c("csv", "xlsx", "tsv", "txt", "png", "jpeg", "tiff", "bmp"))
## check invalid type
testthat::expect_warning(downloadFile_ValidateTypes(types = "csv_invalid"),
"file download list contains an invalid type ")
Run the code above in your browser using DataLab