Skip to content

Commit

Permalink
Have shinyAppDir() populate appFile global so we don't have to guess …
Browse files Browse the repository at this point in the history
…what file should be active
  • Loading branch information
cpsievert committed Sep 10, 2019
1 parent e569deb commit 4b2e6fc
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 2 deletions.
2 changes: 2 additions & 0 deletions R/app.R
Original file line number Diff line number Diff line change
Expand Up @@ -121,8 +121,10 @@ shinyAppDir <- function(appDir, options=list()) {
appDir <- normalizePath(appDir, mustWork = TRUE)

if (file.exists.ci(appDir, "server.R")) {
.globals$appFile <- "server.R"
shinyAppDir_serverR(appDir, options = options)
} else if (file.exists.ci(appDir, "app.R")) {
.globals$appFile <- "app.R"
shinyAppDir_appR("app.R", appDir, options = options)
} else {
stop("App dir must contain either app.R or server.R.")
Expand Down
4 changes: 2 additions & 2 deletions R/showcase.R
Original file line number Diff line number Diff line change
Expand Up @@ -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", tolower(.globals$appFile))) "active" else "",
li(class=if (file %in% .globals$appFile) "active" else "",
a(href=paste0("#", gsub("\\.|\\s+", "_", file), "_code"),
"data-toggle"="tab", paste0(prefix, file)))
)
Expand All @@ -106,7 +106,7 @@ tabContentHelper <- function(files, path, language) {
lapply(files, function(file) {
with(tags,
div(class=paste0("tab-pane",
if (tolower(file) %in% c("app.r", "server.r", tolower(.globals$appFile))) " active"
if (file %in% .globals$appFile) " active"
else ""),
id=paste0(gsub("\\.|\\s+", "_", file), "_code"),
pre(class="shiny-code",
Expand Down

0 comments on commit 4b2e6fc

Please sign in to comment.