Recognize Shiny

Author: flujoo

Diff for: DESCRIPTION

@@ -1,7 +1,7 @@
 Package: gm
 Type: Package
 Title: Generate Music Easily and Show Them Anywhere
-Version: 1.0.3
+Version: 1.0.4
 Author: Renfei Mao
 Maintainer: Renfei Mao <[email protected]>
 Description: Provides a simple and intuitive high-level language, with which
@@ -30,6 +30,7 @@ Imports:
     MASS,
     rlang,
     rstudioapi,
+    shiny,
     stringr,
     utils
 Roxygen: list(markdown = TRUE)

Diff for: NEWS.md

@@ -1,3 +1,8 @@
+# gm 1.0.4
+
+* Recognize Shiny apps.
+
+
 # gm 1.0.3
 
 * Change default score margin to 0.

Diff for: R/external.R

@@ -293,6 +293,8 @@ get_show_context <- function() {
   if (isTRUE(getOption('knitr.in.progress'))) {
     # check if knit to pdf or word
     ifelse(knitr::is_html_output(), "rmd", "rmd_other")
+  } else if (shiny::isRunning()) {
+    "shiny"
   } else if (rstudioapi::isAvailable()) {
     "rstudio"
   } else if (is_jupyter()) {
@@ -322,7 +324,7 @@ show_musicxml <- function(musicxml, to, musescore) {
   } else {
     content <- generate_show_content(name_path, to, context)
 
-    if (context %in% c("rmd", "jupyter")) {
+    if (context %in% c("rmd", "jupyter", "shiny")) {
       content
 
     } else {
@@ -401,8 +403,8 @@ generate_file_path <- function(name_path, format, context) {
     file_path %<>% basename()
   }
 
-  # use data URL in R Markdown documents and Jupyter Notebooks
-  if (context %in% c("jupyter", "rmd")) {
+  # use data URL in R Markdown documents, Jupyter Notebooks and Shiny apps
+  if (context %in% c("jupyter", "rmd", "shiny")) {
     file_path %<>% {base64enc::dataURI(file = .)}
   }