== Enabling more styling options for actionButton == The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons
Added support for these styles to the actionButton.
evalparse xiaodaigh
xiaodaigh
/ server.R
Last active
December 24, 2015 08:49
— forked from tcash21/server.R
This file contains hidden or 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
| require(shiny) | |
| require(rCharts) | |
| inputChoices <- c("A", "B", "C", "D") | |
| shinyServer(function(input, output, session){ | |
| input2Choices <- reactive({ | |
| inputChoices[-grep(input$input1, inputChoices)] | |
| }) |
xiaodaigh
/ react log.r
Created
October 1, 2013 16:15
This file contains hidden or 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
| ?showReactLog | |
| options(shiny.reactlog=TRUE); | |
| session$sendCustomMessage(type="jsCode", | |
| list(code= paste("$('#",id,"').prop('disabled',true)" | |
| ,sep=""))) | |
| tags$head(tags$script(HTML(' | |
| Shiny.addCustomMessageHandler("jsCode", |
This file contains hidden or 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) | |
| library(shinyIncubator) | |
| options(shiny.reactlog=TRUE); | |
| shinyServer(function(input, output,session) { | |
| output$test <- renderPlot({ | |
| input$meh | |
| print("wassup") | |
| withProgress(session, min=1, max=15, { |
This file contains hidden or 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) | |
| disableActionButton <- function(id,session) { | |
| session$sendCustomMessage(type="jsCode", | |
| list(code= paste("$('#",id,"').prop('disabled',true)" | |
| ,sep=""))) | |
| } | |
| shinyServer(function(input, output,session) { | |
This file contains hidden or 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) | |
| shinyServer(function(input,output){ | |
| reval <- reactiveValues(a= 1,b=2,dummy= rnorm(1)) | |
| observe({ | |
| if(input$hello == 0) return() | |
| random.number <- rnorm(1) | |
| reval$dummy <- random.number | |
| b <- reval$b |
xiaodaigh
/ README.md
Last active
February 1, 2017 02:15
== actionButton styling ==
The Twitter Bootstrap allows for many class styles for buttons. http://getbootstrap.com/2.3.2/base-css.html#buttons Added support for these styles to the actionButton.
This file contains hidden or 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) | |
| shinyServer(function(input, output, session) { | |
| # Partial example | |
| output$meh <- renderPrint({ | |
| print("Press enter or focusout to update --- ") | |
| print(input$myTextInput ) |
This file contains hidden or 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) | |
| shinyServer(function(input, output, session) { | |
| # Partial example | |
| output$meh <- renderPrint({ | |
| print("Meh --- ") | |
| print(input$myTextInput ) | |
| print(input$passInput ) | |
| }) |
xiaodaigh
/ A simple visual variable clustering algorithm
Created
December 5, 2013 10:52
Visual variable clustering
This file contains hidden or 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
| data <- read.csv("c:/bb2.csv") | |
| cor.data <- cor(data[sapply(data,typeof)=="double"],method="spearman") | |
| dist <- function(y,x) { | |
| if(is.null(dim(x))) { | |
| sqrt((x[1] - y[1])^2 + (x[2] - y[2])^2) | |
| } else { | |
| sqrt((x[,1] - y[1])^2 + (x[,2] - y[2])^2) | |
| } |
This file contains hidden or 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
| #install.packages(c("devtools","svSockets")) # if not already installed | |
| #devtools::install_github("gosocket","analytixware") # if not already installed | |
| #devtools::install_github("shinysky","analytixware") # if not already installed | |
| library(shiny) | |
| library(shinysky) | |
| library(gosocket) | |
| # Define server logic required to generate and plot a random distribution | |
| shinyServer(function(input, output,session) { |