View julia_npp.xml
<NotepadPlus> | |
<UserLang name="Julia" ext="jl"> | |
<Settings> | |
<Global caseIgnored="no" /> | |
<TreatAsSymbol comment="no" commentLine="yes" /> | |
<Prefix words1="no" words2="no" words3="no" words4="no" /> | |
</Settings> | |
<KeywordLists> | |
<Keywords name="Delimiters">"00"00</Keywords> | |
<Keywords name="Folder+">begin function type for while if</Keywords> |
View server.r
shinyServer(function(input, output) { | |
output$distPlot <- renderPlot({ | |
# Take a dependency on input$goButton | |
input$goButton | |
# Use isolate() to avoid dependency on input$obs | |
dist <- isolate(rnorm(input$obs)) | |
hist(dist) | |
}) | |
}) |
View heightweight.csv
sex | ageYear | ageMonth | heightIn | weightLb | |
---|---|---|---|---|---|
f | 11.91667 | 143 | 56.3 | 85 | |
f | 12.91667 | 155 | 62.3 | 105 | |
f | 12.75 | 153 | 63.3 | 108 | |
f | 13.41667 | 161 | 59 | 92 | |
f | 15.91667 | 191 | 62.5 | 112.5 | |
f | 14.25 | 171 | 62.5 | 112 | |
f | 15.41667 | 185 | 59 | 104 | |
f | 11.83333 | 142 | 56.5 | 69 | |
f | 13.33333 | 160 | 62 | 94.5 |
View server.r
shinyServer(function(input, output) { | |
output$main_plot <- renderPlot(width = 400, height = 300, { | |
hist(faithful$eruptions, | |
probability = TRUE, | |
breaks = as.numeric(input$n_breaks), | |
xlab = "Duration (minutes)", | |
main = "Geyser eruption duration") |