# This is valid raster data so the function will return no error message
raster_dir_name <- file.path(
system.file("extdata", package = "NeuroDecodeR"),
"Zhang_Desimone_7object_raster_data_small_rda"
)
file_name <- "bp1001spk_01A_raster_data.rda"
raster_full_path <- file.path(raster_dir_name, file_name)
test_valid_raster_format(raster_full_path)
# Binned data is not in raster format (it has an extra column called siteID) so
# checking if it is in raster format should return an error.
binned_file_name <- system.file(file.path("extdata", "ZD_150bins_50sampled.Rda"),
package = "NeuroDecodeR")
try(test_valid_raster_format(binned_file_name))
Run the code above in your browser using DataLab