R/upload_presentation.R

In USGS-R/powstreams: powstreams

#' upload a presentation to sciencebase
#' 
#' You must be logged into ScienceBase with \code{\link{login_sb}} to use this 
#' function
#' 
#' @param file a file path to the presentation for upload
#' @importFrom sbtools item_upload_create current_session
#' @importFrom mda.streams locate_folder
#' @export
upload_presentation <- function(file){
  
  if(is.null(current_session())) login_sb()
  
  pres_folder <- locate_folder('presentations')
  id_out <- item_upload_create(parent_id = pres_folder, file)
  url_out <- paste0("https://www.sciencebase.gov/catalog/item/", id_out)
  return(url_out)
  
}