update-hydroshare-file

hydroshare-update.R

####################
# Using R to update a file in a Hydroshare resource

library(sf)
library(httr)
##  make some data
d <- read_sf("https://reference.geoconnex.us/collections/states/items?limit=100")

## Write out the data
file <- "out.gpkg"
write_sf(d,file)

## Interact with Hydroshare

# API endpoint
api <- "https://www.hydroshare.org/hsapi/resource/"

# Set Hydroshare resource id and REST endpoints.
# Hydroshare does not have PUT or PATCH for files. 
# So have to try DELETE and then POST 

id <- "4bc8f1ee44644268a7b9edbd58b01047" #change to your resource
post_url <- paste0(api,id,"/files/./")
delete_url <- paste0(api,id,"/files/./",file)

try(
     DELETE(delete_url, 
            authenticate("user", "pw")))

POST(post_url, 
     body = list(file=upload_file(file)), 
     encode = "multipart", 
     authenticate("user", "pw))