github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #415 from jcheng5/bugfix/showcase-case

Browse Source 
Make showcase mode work with .r files
This commit is contained in:
Jonathan
2014-03-11 09:13:04 -07:00
parent 75c3bf0c2f 69c0414791
commit 3c1218fff1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/showcase.R
View File

@@ -71,7 +71,7 @@ appMetadata <- function(desc) {
# Returns tags containing the application's code in Bootstrap-style tabs in
# showcase mode.
showcaseCodeTabs <- function(codeLicense) {
rFiles <- list.files(pattern = "\\.R$")
rFiles <- list.files(pattern = "\\.[rR]$")
with(tags, div(id="showcase-code-tabs",
a(id="showcase-code-position-toggle",
class="btn btn-default btn-small",
@@ -79,7 +79,7 @@ showcaseCodeTabs <- function(codeLicense) {
i(class="fa fa-level-up", "show with app")),
ul(class="nav nav-tabs",
lapply(rFiles, function(rFile) {
li(class=if (rFile == "server.R") "active" else "",
li(class=if (tolower(rFile) == "server.r") "active" else "",
a(href=paste("#", gsub(".", "_", rFile, fixed=TRUE),
"_code", sep=""),
"data-toggle"="tab", rFile))
@@ -87,7 +87,7 @@ showcaseCodeTabs <- function(codeLicense) {
div(class="tab-content", id="showcase-code-content",
lapply(rFiles, function(rFile) {
div(class=paste("tab-pane",
if (rFile == "server.R") " active" else "",
if (tolower(rFile) == "server.r") " active" else "",
sep=""),
id=paste(gsub(".", "_", rFile, fixed=TRUE),
"_code", sep=""),