View css.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shiny) | |
css <- local({ | |
cssRules <- function(rules) { | |
paste( | |
' ', | |
gsub('.', '-', names(rules), fixed = TRUE), | |
': ', | |
rules, | |
';', |
View DESCRIPTION
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Type: Shiny | |
DisplayMode: Showcase | |
Title: Selectize vs. Select comparison |
View server.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
shinyServer(function(input, output, session) { | |
updateSelectInput(session, 'foo', choices=1:11) | |
}) |
View global.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(dplyr) | |
allzips <- readRDS("data/superzip.rds") | |
allzips$latitude <- jitter(allzips$latitude) | |
allzips$longitude <- jitter(allzips$longitude) | |
allzips$college <- allzips$college * 100 | |
allzips$zipcode <- formatC(allzips$zipcode, width=5, format="d", flag="0") | |
row.names(allzips) <- allzips$zipcode | |
cleantable <- allzips %.% |
View DESCRIPTION
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Title: Telephones by region | |
Author: Jeff Allen <jeff@rstudio.com> | |
AuthorUrl: http://www.rstudio.com/ | |
License: MIT | |
DisplayMode: Showcase | |
Tags: sidebarlayout helptext selectinput | |
Type: Shiny |
View global.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# Define a dataset globally which will be available | |
# both to the UI and to the server. | |
# Rely on the 'WorldPhones' dataset in the datasets | |
# package (which generally comes preloaded). | |
library(datasets) | |
# Trim out the non-consecutive year from |
View DESCRIPTION
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Title: Dynamic Clustering | |
Author: Jeff Allen <jeff@rstudio.com> | |
AuthorUrl: http://www.rstudio.com/ | |
License: MIT | |
DisplayMode: Showcase | |
Tags: mclust clustering clickid observe isolate | |
Type: Shiny |
View DESCRIPTION
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Title: Basic DataTable | |
Author: Jeff Allen <jeff@rstudio.com> | |
AuthorUrl: http://www.rstudio.com/ | |
License: MIT | |
DisplayMode: Showcase | |
Tags: mtcars selectinput datatables | |
Type: Shiny |
View server.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(shinyIncubator) | |
shinyServer(function(input, output, session) { | |
output$plot <- renderPlot({ | |
if (input$go == 0) | |
return() | |
# Wrap the entire expensive operation with withProgress | |
withProgress(session, { | |
setProgress(message = "Calculating, please wait", |
View server.R
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
shinyServer(function(input, output, session) { | |
output$plot <- renderPlot({ | |
plot(cars, type=input$plotType) | |
}) | |
output$summary <- renderPrint({ | |
summary(cars) | |
}) | |
output$table <- renderDataTable({ |
OlderNewer