function that returns the system metadata of all versions of a PID

Author: veeveetran

R/sysmeta_all.R

@@ -0,0 +1,16 @@
+sysmeta_all <- function(mn, pid){
+  mn <- mn
+  pid <- pid
+  
+  allPIDS <- get_all_versions(mn, pid)
+  
+  allSysmeta <- list()
+  i=0
+  for(i in 1:length(all_vers)){
+    allSysmeta[[i]] <- getSystemMetadata(mn, allPIDS[i])
+  }
+  
+  return(allSysmeta)
+}
+
+