See merge request !32

R/assemble.R

@@ -11,12 +11,13 @@
 #'
 #' @rdname assemble
 #' @examples
-#' library(magrittr)
+#' \dontrun{
 #' i2dashboard() %>% assemble()
 #' i2dashboard() %>%
 #'     add_page("p1", "Title 1") %>%
 #'     add_page("p2", "Title 2") %>%
 #'     assemble(file="MyDashboard.Rmd", exclude="default", render=TRUE)
+#' }
 setMethod("assemble", "i2dashboard", function(dashboard, pages = names(dashboard@pages), file = dashboard@file, exclude = NULL, render = FALSE, ...) {
   . = NULL # workaround for R CMD check note: no visible binding for global variable '.'
   tmp_document <- tempfile()

R/i2dashboard.R

@@ -101,6 +101,7 @@ setMethod("show", "i2dashboard", function(object) {
 #' @rdname i2dashboard-class
 #' @export
 #' @examples
+#' \dontrun{
 #' dashboard <- i2dashboard()
 #' dashboard <- i2dashboard(
 #'     title = "Dashboard title",
@@ -111,8 +112,8 @@ setMethod("show", "i2dashboard", function(object) {
 #'     file = "MyDashboard.Rmd",
 #'     source = "embed"
 #' )
-#'
-#' # inspect dashboard:
+#' #' # inspect dashboard:
 #' show(dashboard)
 #' dashboard
+#' }
 i2dashboard <- function(...) methods::new("i2dashboard", ...)

man/assemble.Rd

@@ -36,10 +36,11 @@ Invisibly returns the unmodified \linkS4class{i2dashboard} object.
 Generate an RMarkdown file from an \linkS4class{i2dashboard} object.
 }
 \examples{
-library(magrittr)
+\dontrun{
 i2dashboard() \%>\% assemble()
 i2dashboard() \%>\%
     add_page("p1", "Title 1") \%>\%
     add_page("p2", "Title 2") \%>\%
     assemble(file="MyDashboard.Rmd", exclude="default", render=TRUE)
 }
+}

man/i2dashboard-class.Rd

@@ -58,6 +58,7 @@ The \linkS4class{i2dashboard} S4 class provides main functionality of the packag
 }}
 
 \examples{
+\dontrun{
 dashboard <- i2dashboard()
 dashboard <- i2dashboard(
     title = "Dashboard title",
@@ -68,8 +69,8 @@ dashboard <- i2dashboard(
     file = "MyDashboard.Rmd",
     source = "embed"
 )
-
-# inspect dashboard:
+#' # inspect dashboard:
 show(dashboard)
 dashboard
 }
+}