library(EML)
library(dataone)
library(arcticdatautils);

mpath <- '/home/sjclark/ASL/forKNB/asl_yuk_kusk_metadata.xml'
eml <- read_eml(mpath)

cn <- CNode('PROD')
mn <- getMNode(cn,'urn:node:KNB')
csvpid <- 'urn:uuid:6b37b187-f6a4-4fa1-a1d9-330bf71754ab'
datapath <- '/home/sjclark/ASL/ASL_merged.csv'

#update data object
new_csv_pid <- update_object(mn, csvpid, datapath)

#build data table with attributelist and physical sections
attributes <- read.csv('~/ASL/forKNB/ASL_attributes.csv', stringsAsFactors = F, na.strings = '')
factors <- read.csv('~/ASL/forKNB/factors.csv', stringsAsFactors = F)
attlist <- set_attributes(attributes, factors = factors)

physical1 <- sysmeta_to_eml_physical(getSystemMetadata(mn, new_csv_pid))

datatable <- new('dataTable',
                 entityName = 'ASL_merged.csv',
                 entityDescription = 'ASL data from the Arctic, Yukon, Kuskokwim region',
                 physical = physical1,
                 attributeList = attlist)

eml@dataset@dataTable <- c(datatable)
#write EML
write_eml(eml, '~/ASL/forKNB/asl_yuk_kusk_metadata.xml')
#get existing PIDs for metadata and rm
pkg <- get_package(mn, 'urn:uuid:7d84ed0d-4b94-450e-b51c-e90399829d8b')

#set metadatapath
#publish update
publish_update(mn,
               pkg$metadata,
               pkg$resource_map,
               new_csv_pid,
               metadata_path = mpath,
               public = FALSE)