Merge branch 'master' of https://gitlab.gwdg.de/loosolab/software/i2dash

DESCRIPTION

@@ -35,6 +35,7 @@ Collate:
     'AllGenerics.R'
     'assemble.R'
     'components.R'
+    'get_set.R'
     'pages.R'
     'reexports.R'
     'vis_objects.R'

NAMESPACE

@@ -6,6 +6,7 @@ export(add_page)
 export(assemble)
 export(embed_var)
 export(i2dashboard)
+export(interactivity)
 export(remove_page)
 exportClasses(i2dashboard)
 exportMethods(add_component)

R/AllGenerics.R

@@ -9,4 +9,8 @@ setGeneric("add_page", function(object, ...) standardGeneric("add_page"))
 setGeneric("remove_page", function(object, ...) standardGeneric("remove_page"))
 
 #' @export
-setGeneric("add_component", function(object, component, ...) standardGeneric("add_component"))
\ No newline at end of file
+setGeneric("add_component", function(object, component, ...) standardGeneric("add_component"))
+
+#' @export
+setGeneric("interactivity", function(object) standardGeneric("interactivity"))
+setGeneric("interactivity<-", function(object, value) standardGeneric("interactivity<-"))

R/assemble.R

@@ -70,6 +70,7 @@ setMethod("assemble", "i2dashboard", function(object, pages = names(object@pages
   }
 
   template <- switch(layout,
+                     "empty" = system.file("templates", "layout_empty.Rmd", package = "i2dash"),
                      "default" = system.file("templates", "layout_default.Rmd", package = "i2dash"),
                      "storyboard" = system.file("templates", "layout_storyboard.Rmd", package = "i2dash"),
                      "focal_left" = system.file("templates", "layout_focal_left.Rmd", package = "i2dash"),

R/get_set.R

+#' Get/set the interactivity of the i2dashboard object.
+#'
+#' @param .Object A \linkS4class{i2dash::i2dashboard} report.
+#' @param value The value of the desired property.
+#'
+#' @name i2dashboard-class
+#' @rdname i2dashboard-class
+setMethod("interactivity", "i2dashboard", function(object) object@interactive)
+
+#' @name i2dashboard-class
+#' @rdname i2dashboard-class
+setMethod("interactivity<-", "i2dashboard", function(object, value) {
+  object@interactive <- value
+  object
+})

R/i2dashboard.R

@@ -75,6 +75,7 @@ setMethod("show", "i2dashboard", function(.Object) {
 #' @export
 i2dashboard <- function(...) new("i2dashboard", ...)
 
+
 ### - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 ### Validity.
 ###

inst/templates/layout_empty.Rmd

+<% title %> <% if(!is.null(menu)) sprintf('{data-navmenu="%s"}', menu) %>
+====================================================
+
+<% components %>

man/i2dashboard-class.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/get_set.R
+\docType{methods}
+\name{i2dashboard-class}
+\alias{i2dashboard-class}
+\title{Get/set the interactivity of the i2dashboard object.}
+\usage{
+\S4method{interactivity}{i2dashboard}(object)
+
+\S4method{interactivity}{i2dashboard}(object) <- value
+}
+\arguments{
+\item{value}{The value of the desired property.}
+
+\item{.Object}{A \linkS4class{i2dash::i2dashboard} report.}
+}
+\description{
+Get/set the interactivity of the i2dashboard object.
+}