added access functions to get creation date + gsplot verion

Author: Lindsay Carr

NAMESPACE

@@ -46,6 +46,8 @@ export(text)
 export(title)
 export(view)
 export(view_info)
+export(whatDate)
+export(whatVersion)
 export(xlab)
 export(xlim)
 export(ylab)

R/access-gsplot.R

@@ -258,4 +258,28 @@ view_info <- function(object){
   viewInfo$y.side.defined.by.user <- viewInfo$y %in% defined.sides
 
   return(viewInfo)
-}
+}
+
+#' Get gsplot object creation date.
+#' 
+#' Get the date that this gsplot object was originally created.
+#' 
+#' @param object a gsplot object
+#' @return The date the gsplot object was created.
+#' @export
+whatDate <- function(object){
+  date_created <- object$metadata$created
+  return(date_created)
+}
+
+#' Get gsplot version used.
+#' 
+#' Get the version number that was used to create this gsplot object.
+#' 
+#' @param object a gsplot object
+#' @return The gsplot version number.
+#' @export
+whatVersion <- function(object){
+  version_created <- object$metadata$gsplot.version
+  return(version_created)
+}