To run
shiny::runGist("6684134")
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 |
library(shiny) | |
disableActionButton <- function(id,session) { | |
session$sendCustomMessage(type="jsCode", | |
list(code= paste("$('#",id,"').prop('disabled',true)" | |
,sep=""))) | |
} | |
shinyServer(function(input, output,session) { | |
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, { |
?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", |
require(shiny) | |
require(rCharts) | |
inputChoices <- c("A", "B", "C", "D") | |
shinyServer(function(input, output, session){ | |
input2Choices <- reactive({ | |
inputChoices[-grep(input$input1, inputChoices)] | |
}) |
#find top level expression | |
ancestor <- function(code.pd,id,ancestors_parent_id=0) { | |
this <- code.pd[code.pd$id == id,] | |
if(this$parent == ancestors_parent_id) return(this) | |
immediate_parent = code.pd[code.pd$id == this$parent,] | |
if(immediate_parent$parent == ancestors_parent_id) | |
return(immediate_parent) | |
return(ancestor(code.pd,immediate_parent$id,ancestors_parent_id)) | |
} |
# | |
# | |
cor.ilic <- function(x,y) { | |
# tryCatch(t <- table(x,y,exclude=NULL,useNA="ifany") | |
# , error = function(e) { | |
# | |
# } | |
# ) | |
bt <- table.p(data.frame(x=x,y=y),32) | |
To run
shiny::runGist("6684134")
library(shiny) | |
data(pressure) | |
data(cars) | |
shinyServer(function(input, output, session) { | |
# Partial example | |
observe({ | |
$(document).delegate("#mytable",'DOMSubtreeModified','DOMNodeInserted', function(event) { | |
color() | |
}); | |
function color(){ | |
$('#mytable td').each(function(){ | |
$(this).css({'background':'#CCC'}); | |
}) | |
} |