metadata

noriakis · Dec 8, 2023 · fcb08c4 · fcb08c4
1 parent fe24f0e
commit fcb08c4
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/R/setMetadata.R b/R/setMetadata.R
@@ -0,0 +1,13 @@
+#' setMetadata
+#' 
+#' @param stana stana
+#' @param meta metadata (data.frame)
+#' row.name as ID of the trees
+#' 
+#' @return stana object
+#' 
+setMetadata(stana, meta) {
+    meta[["id"]] <- row.names(meta)
+    stana@meta <- meta
+    return(stana)
+}
diff --git a/R/stana.R b/R/stana.R
@@ -11,6 +11,7 @@
 setClass("stana", slots=list(
                             type="character",
                             cl="list",
+                            meta="data.frame",
                             mergeDir="character",
                             db="character",
                             ids="character",