Files
shiny/inst/www/showcase-code-popup.html
2013-12-16 13:15:11 -08:00

53 lines
1.8 KiB
HTML

<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<link rel="stylesheet" type="text/css" href="shared/shiny.css"/>
<link rel="stylesheet" type="text/css" href="shared/shiny-showcase.css"/>
<link rel="stylesheet" type="text/css" href="shared/bootstrap/css/bootstrap.min.css"/>
<link rel="stylesheet" type="text/css" href="shared/highlight/styles/tomorrow.css" />
<script src="shared/jquery.js" type="text/javascript"></script>
<script src="shared/jquery-ui.js"></script>
<script src="shared/shiny-showcase.js"></script>
<script src="shared/bootstrap/js/bootstrap.min.js"></script>
<script type="text/javascript">
window.addEventListener("load", function() {
document.getElementById("ui-r-code").innerHTML =
window.opener.document.getElementById("ui-r-code").innerHTML;
document.getElementById("server-r-code").innerHTML =
window.opener.document.getElementById("server-r-code").innerHTML;
});
window.addEventListener("unload", function() {
window.opener.closePopOutCode();
});
</script>
<style>
.tab-pane pre {
border: none;
background-color: white;
}
body {
margin-top: 15px;
background-color: #f0f0f0;
}
.nav-tabs {
padding-left: 10px;
}
ul.nav-tabs {
margin-bottom: 0px;
}
</style>
<title>Shiny Application Code</title>
</script>
<body>
<ul class="nav nav-tabs">
<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-pane" id="ui-r-code-tab"><pre><code id="ui-r-code"></code></pre></div>
<div class="tab-pane active" id="server-r-code-tab"><pre><code id="server-r-code"></code></pre></div>
</div>
</body>
</html>