Skip to content

Instantly share code, notes, and snippets.

View xiaodaigh's full-sized avatar

evalparse xiaodaigh

198 followers · 53 following
View GitHub Profile
@xiaodaigh
xiaodaigh / server.R
Last active December 24, 2015 08:49 — forked from tcash21/server.R
require(shiny)
require(rCharts)
inputChoices <- c("A", "B", "C", "D")
shinyServer(function(input, output, session){
input2Choices <- reactive({
inputChoices[-grep(input$input1, inputChoices)]
})
@xiaodaigh
xiaodaigh / react log.r
Created October 1, 2013 16:15
?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",
@xiaodaigh
xiaodaigh / server.R
Created October 1, 2013 16:20
Shiny output doesn't run if no input?
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, {
@xiaodaigh
xiaodaigh / server.R
Last active August 18, 2022 17:45
Shiny: Disable Button
library(shiny)
disableActionButton <- function(id,session) {
session$sendCustomMessage(type="jsCode",
list(code= paste("$('#",id,"').prop('disabled',true)"
,sep="")))
}
shinyServer(function(input, output,session) {
@xiaodaigh
xiaodaigh / server.r
Created October 12, 2013 06:16
Shiny R - Re-initialise reactive values
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
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.
@xiaodaigh
xiaodaigh / server.r
Last active February 2, 2016 18:07
R Shiny: An textInput that only gets invalidated upon losing focus or when enter is pressed shiny::runGist("7150112")
library(shiny)
shinyServer(function(input, output, session) {
# Partial example
output$meh <- renderPrint({
print("Press enter or focusout to update --- ")
print(input$myTextInput )
@xiaodaigh
xiaodaigh / server.r
Created October 25, 2013 22:02
R Shiny Password Input
library(shiny)
shinyServer(function(input, output, session) {
# Partial example
output$meh <- renderPrint({
print("Meh --- ")
print(input$myTextInput )
print(input$passInput )
})
@xiaodaigh
xiaodaigh / A simple visual variable clustering algorithm
Created December 5, 2013 10:52
Visual variable clustering
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)
}
@xiaodaigh
xiaodaigh / server.r
Created December 16, 2013 18:38
Shiny callback mechanism
#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) {