Only run seqLogoApp example in interactive sessions

fmicompbio · Jul 3, 2023 · 2bca1f3 · 2bca1f3
1 parent cc4dc0c
commit 2bca1f3
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/seqLogoApp.R b/R/seqLogoApp.R
@@ -23,7 +23,9 @@
 #' tfile <- tempfile(fileext = "_seq.csv")
 #' write.table(tbl, file = tfile, row.names = FALSE,
 #'             col.names = TRUE, quote = TRUE, sep = ",")
-#' seqLogoApp(tfile)
+#' if (interactive()) {
+#'     seqLogoApp(tfile)
+#' }
 #'
 #' @importFrom shiny fluidPage fluidPage sidebarLayout sidebarPanel
 #'     mainPanel downloadButton plotOutput renderPlot reactive downloadHandler

diff --git a/man/seqLogoApp.Rd b/man/seqLogoApp.Rd