upload_file fix

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: matos
 Type: Package
 Title: Interface with the Mid-Atlantic Acoustic Telemetry Observing System (MATOS)
-Version: 0.3.002
+Version: 0.3.003
 Authors@R: person("Michael", "O'Brien", email = "mike@obrien.page",
  role = c("aut", "cre"),
  comment = c(ORCID = "0000-0003-1420-6395"))

NEWS.md

@@ -1,3 +1,6 @@
+# matos 0.3.003
+ - Fix [`upload_file`](https://matos.obrien.page/reference/upload_file.html) to actually allow multiple uploads
+
 # matos 0.3
 
  - The meat of what were `make_tag_push_summary` and `make_receiver_push_summary` have been moved over to a new package: [`otndo`](https://otndo.obrien.page). These functions now wrap those in `otndo` and have been renamed [`matos_tag_summary`](https://matos.obrien.page/reference/matos_tag_summary.html) and [`matos_receiver_summary`](https://matos.obrien.page/reference/matos_receiver_summary.html), respectively.

R/upload_file.R

@@ -80,21 +80,21 @@ upload_file <- function(project, file,
  }
 
  ## Check that file extensions match the expected file type.
- if(data_type %in% c('receivers', 'new_tags', 'glider') &&
+ if(any(data_type %in% c('receivers', 'new_tags', 'glider')) &&
  any(grepl('xls|csv', file_extension) == F)){
 
  stop(paste0('File is not saved as the correct type: should be CSV, XLS, or XLSX. Namely:\n\n',
  paste(file[!grepl('xls|csv', file_extension)],
  collapse = '\n')))
 
- } else if(grepl('detections', data_type) &&
+ } else if(any(grepl('detections', data_type)) &&
  any(grepl('vrl|csv', file_extension) == F)){
 
  stop(paste0('File is not the correct type: should be VRL or CSV. Namely:\n\n',
  paste(file[!grepl('vrl|csv', file_extension)],
  collapse = '\n')))
 
- } else if(data_type %in% c('events', 'gps') &&
+ } else if(any(data_type %in% c('events', 'gps')) &&
  any(file_extension != 'csv')){
 
  stop(paste0('File is not saved as the correct type: should be CSV. Namely:\n\n',