update-format-id.R

library(dataone)

mn <- MNode("https://arcticdata.io/metacat/d1/mn/v2")
pid <- "arctic-data.6230.1"

# Modify System Metadata
sysmeta <- getSystemMetadata(mn, pid)
sysmeta@formatId # You can see that it's "application/vnd.ms-excel"

#' Sytem Metadata formatId values are from a controlled list of identifires
#' that covers a variety of format types.
#'
#' We need to find the format ID for CSV. Go to:
#'
#'   https://cn.dataone.org/cn/v2/formats
#'
#' and find 'text/csv'. You can see that it's "Id" is just "text/csv".

sysmeta@formatId <- "text/csv"
sysmeta@formatId

# Now we can just update the System Metadata
updateSystemMetadata(mn,
                     pid = pid,
                     sysmeta = sysmeta)