inst/metadata/contact/contact_handler_ocs.R

In geoflow: Orchestrate Geospatial (Meta)Data Management Workflows and Manage FAIR Services

#handle_contacts_ocs
handle_contacts_ocs <- function(handler, source, config, handle = TRUE){
  
  if(!requireNamespace("ocs4R", quietly = TRUE)){
    stop("The OCS handler requires the 'ocs4R' package")
  }
  
  ocs <- config$software$input$ocs
  if(is.null(ocs)){
    stop("There is no OCS input software configured to handle contacts from an OCS service endpoint")
  }
  
  contacts_file <- ocs$downloadFile(relPath = dirname(source), filename = basename(source), outdir = tempdir())
  
  contacts <- switch(mime::guess_type(contacts_file),
                     "text/csv" = {
                       handle_contacts_csv <- source(system.file("metadata/contact", "contact_handler_csv.R", package = "geoflow"))$value
                       handle_contacts_csv(handler = handler, source = contacts_file, config = config, handle = handle)
                      },
                     "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet" = {
                       handle_contacts_excel <- source(system.file("metadata/contact", "contact_handler_excel.R", package = "geoflow"))$value
                       handle_contacts_excel(handler = handler, source = contacts_file, config = config, handle = handle)
                     }
  )
  return(contacts)
}