Error in `detect_input(rnacounts = rnacounts, spotcoords = spotcoords, 
    samples = samples)`: Number of sample names do not match number of RNA counts tables.

zip_tmp = list.files(thrane_tmp, pattern='melanoma_thrane.zip$', full.names=TRUE)
count_files <- list.files(paste0(thrane_tmp, '/melanoma_thrane'), full.names=TRUE, pattern='counts')
coord_files <- list.files(paste0(thrane_tmp, '/melanoma_thrane'), full.names=TRUE, pattern='mapping')
clin_file <- list.files(paste0(thrane_tmp, '/melanoma_thrane'), full.names=TRUE, pattern='clinical')
melanoma = STlist(rnacounts=count_files[c(1,2)], spotcoords=coord_files[c(1,2)], samples=clin_file) # Only first two samples
# Test that resulting STlist is an S4 object
testthat::test_that("Data input checks output single character string", {

"Data input checks output single character string"