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 #417 from yihui/bugfix/showcase-escape

Browse Source 
fixes #416: use tags$code() to escape the code in showcase mode
This commit is contained in:
Joe Cheng
2014-03-11 21:09:48 -07:00
parent 8e5cbde08c 95c30649d3
commit a5a4510a1e
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
R/showcase.R
View File

@@ -92,12 +92,12 @@ showcaseCodeTabs <- function(codeLicense) {
id=paste(gsub(".", "_", rFile, fixed=TRUE),
"_code", sep=""),
pre(class="shiny-code",
# We can't use tag$code here since we need to prevent
# whitespace from being emitted between <code> ... </code>
HTML(paste('<code class="language-r">',
paste(readLines(file.path.ci(getwd(), rFile)),
collapse="\n"),
'</code>', sep=""))))
# we need to prevent the indentation of <code> ... </code>
HTML(format(tags$code(
class="language-r",
paste(readLines(file.path.ci(getwd(), rFile)),
collapse="\n")
), indent = FALSE))))
})),
codeLicense))
}