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

nicer code tabs in code-alongside mode

Browse Source
This commit is contained in:
Jonathan McPherson
2013-12-17 20:18:22 -08:00
parent 79ec6845f8
commit 58fe5f263f
3 changed files with 23 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
R/shinyui.R
View File

@@ -197,7 +197,7 @@ writeShowcasePreamble <- function(connection) {
writeLines('</h4>', con = connection)
}
} else {
writeLines('<h4><small>Shiny Application</small></h4>', con = connection)
writeLines('<h4 class="muted">Shiny Application</h4>', con = connection)
}
writeLines('</div></div></div>', con = connection)
}
@@ -274,7 +274,7 @@ renderPage <- function(ui, connection, showcase=0) {
' <li><a href="#ui-r-code-tab" data-toggle="tab">ui.R</a>',
' <li class="active"><a href="#server-r-code-tab" data-toggle="tab">server.R</a>',
'</ul>',
'<div class="tab-content">',
'<div class="tab-content" id="showcase-code-content">',
' <div class="tab-pane" id="ui-r-code-tab"></div>',
' <div class="tab-pane active" id="server-r-code-tab"></div>',
'</div></div></td></tr></table>'), con = connection)