From 469112962f1c4e4c736bf3a922926a6f216fc05d Mon Sep 17 00:00:00 2001 From: Carson Date: Wed, 11 Sep 2019 13:10:04 -0500 Subject: [PATCH] use shinyOption() to set/get app filename --- R/app.R | 3 +++ R/showcase.R | 5 ++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/R/app.R b/R/app.R index b1d8f17d7a..90200176c7 100644 --- a/R/app.R +++ b/R/app.R @@ -121,8 +121,10 @@ shinyAppDir <- function(appDir, options=list()) { appDir <- normalizePath(appDir, mustWork = TRUE) if (file.exists.ci(appDir, "server.R")) { + shinyOptions(appFile = "server.R") shinyAppDir_serverR(appDir, options = options) } else if (file.exists.ci(appDir, "app.R")) { + shinyOptions(appFile = "app.R") shinyAppDir_appR("app.R", appDir, options = options) } else { stop("App dir must contain either app.R or server.R.") @@ -136,6 +138,7 @@ shinyAppFile <- function(appFile, options=list()) { appFile <- normalizePath(appFile, mustWork = TRUE) appDir <- dirname(appFile) + shinyOptions(appFile = basename(appFile)) shinyAppDir_appR(basename(appFile), appDir, options = options) } diff --git a/R/showcase.R b/R/showcase.R index c500287450..930482cd04 100644 --- a/R/showcase.R +++ b/R/showcase.R @@ -81,7 +81,7 @@ appMetadata <- function(desc) { navTabsHelper <- function(files, prefix = "") { lapply(files, function(file) { with(tags, - li(class=if (tolower(file) %in% c("app.r", "server.r")) "active" else "", + li(class=if (identical(file, getShinyOption("appFile"))) "active" else "", a(href=paste0("#", gsub("\\.|\\s+", "_", file), "_code"), "data-toggle"="tab", paste0(prefix, file))) ) @@ -106,8 +106,7 @@ tabContentHelper <- function(files, path, language) { lapply(files, function(file) { with(tags, div(class=paste0("tab-pane", - # TODO: what if the app filename is something else? - if (tolower(file) %in% c("app.r", "server.r")) " active" + if (identical(file, getShinyOption("appFile"))) " active" else ""), id=paste0(gsub("\\.|\\s+", "_", file), "_code"), pre(class="shiny-code",