diff --git a/NAMESPACE b/NAMESPACE index 4f3d95cbbe5762618de9518e094817a2f7f1f322..1f686df528e94a82b8f43b90621863129aeed375 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -1,24 +1,24 @@ # Generated by roxygen2: do not edit by hand export("%>%") +export("author<-") +export("datadir<-") export("interactivity<-") +export("theme<-") +export("title<-") export(add_colormap) export(add_component) export(add_page) export(add_to_sidebar) export(assemble) +export(author) +export(datadir) export(embed_var) -export(get_author) -export(get_datadir) -export(get_theme) -export(get_title) export(i2dashboard) export(interactivity) export(remove_page) -export(set_author) -export(set_datadir) -export(set_theme) -export(set_title) +export(theme) +export(title) exportClasses(i2dashboard) exportMethods(add_colormap) exportMethods(add_component) diff --git a/R/AllGenerics.R b/R/AllGenerics.R index ddfd9e40c6c7efdae7c40b3fbed56e5498ee3c0d..4888ef2aa38e80d2d1d2395a155787dd61d38496 100644 --- a/R/AllGenerics.R +++ b/R/AllGenerics.R @@ -24,25 +24,25 @@ setGeneric("interactivity", function(dashboard) standardGeneric("interactivity") setGeneric("interactivity<-", function(dashboard, value) standardGeneric("interactivity<-")) #' @export -setGeneric("get_title", function(dashboard) standardGeneric("get_title")) +setGeneric("title", function(dashboard) standardGeneric("title")) #' @export -setGeneric("set_title", function(dashboard, value) standardGeneric("set_title")) +setGeneric("title<-", function(dashboard, value) standardGeneric("title<-")) #' @export -setGeneric("get_author", function(dashboard) standardGeneric("get_author")) +setGeneric("author", function(dashboard) standardGeneric("author")) #' @export -setGeneric("set_author", function(dashboard, value) standardGeneric("set_author")) +setGeneric("author<-", function(dashboard, value) standardGeneric("author<-")) #' @export -setGeneric("get_theme", function(dashboard) standardGeneric("get_theme")) +setGeneric("theme", function(dashboard) standardGeneric("theme")) #' @export -setGeneric("set_theme", function(dashboard, value) standardGeneric("set_theme")) +setGeneric("theme<-", function(dashboard, value) standardGeneric("theme<-")) #' @export -setGeneric("get_datadir", function(dashboard) standardGeneric("get_datadir")) +setGeneric("datadir", function(dashboard) standardGeneric("datadir")) #' @export -setGeneric("set_datadir", function(dashboard, value) standardGeneric("set_datadir")) \ No newline at end of file +setGeneric("datadir<-", function(dashboard, value) standardGeneric("datadir<-")) \ No newline at end of file diff --git a/R/get_set.R b/R/get_set.R index 18618e8eccf359ae3bb9a31cec6cf0140f8650b0..b51daf8b10859c8b5bbf6f204778146c80a5738c 100644 --- a/R/get_set.R +++ b/R/get_set.R @@ -21,11 +21,11 @@ setMethod("interactivity<-", "i2dashboard", function(dashboard, value) { #' #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("get_title", "i2dashboard", function(dashboard) dashboard@title) +setMethod("title", "i2dashboard", function(dashboard) dashboard@title) #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("set_title", "i2dashboard", function(dashboard, value) { +setMethod("title<-", "i2dashboard", function(dashboard, value) { dashboard@title <- value dashboard }) @@ -37,11 +37,11 @@ setMethod("set_title", "i2dashboard", function(dashboard, value) { #' #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("get_author", "i2dashboard", function(dashboard) dashboard@author) +setMethod("author", "i2dashboard", function(dashboard) dashboard@author) #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("set_author", "i2dashboard", function(dashboard, value) { +setMethod("author<-", "i2dashboard", function(dashboard, value) { dashboard@author <- value dashboard }) @@ -53,11 +53,11 @@ setMethod("set_author", "i2dashboard", function(dashboard, value) { #' #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("get_theme", "i2dashboard", function(dashboard) dashboard@theme) +setMethod("theme", "i2dashboard", function(dashboard) dashboard@theme) #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("set_theme", "i2dashboard", function(dashboard, value) { +setMethod("theme<-", "i2dashboard", function(dashboard, value) { dashboard@theme <- value dashboard }) @@ -69,11 +69,11 @@ setMethod("set_theme", "i2dashboard", function(dashboard, value) { #' #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("get_datadir", "i2dashboard", function(dashboard) dashboard@datadir) +setMethod("datadir", "i2dashboard", function(dashboard) dashboard@datadir) #' @name i2dashboard-class #' @rdname i2dashboard-class -setMethod("set_datadir", "i2dashboard", function(dashboard, value) { +setMethod("datadir<-", "i2dashboard", function(dashboard, value) { dashboard@datadir <- value dashboard }) diff --git a/man/i2dashboard-class.Rd b/man/i2dashboard-class.Rd index 5b509bbda0075ed7643bc14931aef2dfc2a5df4f..d5a103c6403e41d4217e3ffabc0e441911e3c64b 100644 --- a/man/i2dashboard-class.Rd +++ b/man/i2dashboard-class.Rd @@ -8,21 +8,21 @@ \S4method{interactivity}{i2dashboard}(dashboard) <- value -\S4method{get_title}{i2dashboard}(dashboard) +\S4method{title}{i2dashboard}(dashboard) -\S4method{set_title}{i2dashboard}(dashboard, value) +\S4method{title}{i2dashboard}(dashboard) <- value -\S4method{get_author}{i2dashboard}(dashboard) +\S4method{author}{i2dashboard}(dashboard) -\S4method{set_author}{i2dashboard}(dashboard, value) +\S4method{author}{i2dashboard}(dashboard) <- value -\S4method{get_theme}{i2dashboard}(dashboard) +\S4method{theme}{i2dashboard}(dashboard) -\S4method{set_theme}{i2dashboard}(dashboard, value) +\S4method{theme}{i2dashboard}(dashboard) <- value -\S4method{get_datadir}{i2dashboard}(dashboard) +\S4method{datadir}{i2dashboard}(dashboard) -\S4method{set_datadir}{i2dashboard}(dashboard, value) +\S4method{datadir}{i2dashboard}(dashboard) <- value } \arguments{ \item{dashboard}{A \linkS4class{i2dash::i2dashboard}.}