mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-08 05:35:07 -05:00
d7391b19bc
* - Convert all example apps to single file app.R file - Make relevant updates to Readmes to match up with app.R structure - Add color to plots (RStudio blue) - In 04_mpg example: Show outliers by default, as opposed to hide, since this is more routine - In 06_tabsets and 08_html examples: Don't name random data vector "data" - Add extensive comments to app.R files and use consistent formatting of comments across examples - In 09_upload example: Use req() to check for NULL entry * add news entry summarizing changes * use true RStudio blue, #75AADB * Conver shinyApp calls at the end to drop argument name in examples 3-11, except for the custom HTML example. Kept them in for examples 1&2 for completeness in first exporuse to function. * Pull news items that got added before this PR was merged * Update comment for shinyApp function -- it creates an app object, doesn't run the app
42 lines
955 B
HTML
42 lines
955 B
HTML
<html>
|
|
|
|
<head>
|
|
<script src="shared/jquery.js" type="text/javascript"></script>
|
|
<script src="shared/shiny.js" type="text/javascript"></script>
|
|
<link rel="stylesheet" type="text/css" href="shared/shiny.css"/>
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<h1>HTML UI</h1>
|
|
|
|
<p>
|
|
<label>Distribution type:</label><br />
|
|
<select name="dist">
|
|
<option value="norm">Normal</option>
|
|
<option value="unif">Uniform</option>
|
|
<option value="lnorm">Log-normal</option>
|
|
<option value="exp">Exponential</option>
|
|
</select>
|
|
</p>
|
|
|
|
<p>
|
|
|
|
<label>Number of observations:</label><br />
|
|
<input type="number" name="n" value="500" min="1" max="1000" />
|
|
|
|
</p>
|
|
|
|
<h3>Summary of data:</h3>
|
|
<pre id="summary" class="shiny-text-output"></pre>
|
|
|
|
<h3>Plot of data:</h3>
|
|
<div id="plot" class="shiny-plot-output"
|
|
style="width: 100%; height: 300px"></div>
|
|
|
|
<h3>Head of data:</h3>
|
|
<div id="table" class="shiny-html-output"></div>
|
|
|
|
</body>
|
|
</html>
|