Erika's Physical Code

[dvirlar2]

Physical code for when there are multiple entity types

# add physicals - Erika's code
for (i in seq_along(doc$dataset$otherEntity)) {
  otherEntity <- doc$dataset$otherEntity[[i]]
  id <- otherEntity$id

  if (!grepl("urn-uuid-", id)) {
    warning("otherEntity ", i, " is not a pid")

  } else {
    id <- gsub("urn-uuid-", "urn:uuid:", id)
    physical <- arcticdatautils::pid_to_eml_physical(d1c@mn, id)
    doc$dataset$otherEntity[[i]]$physical <- physical
  }
}

[dvirlar2]

Should add this to reference manual