xiaodaigh

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

library(shiny)

disableActionButton <- function(id,session) {
  session$sendCustomMessage(type="jsCode",
                             list(code= paste("$('#",id,"').prop('disabled',true)"
                                    ,sep="")))
}

shinyServer(function(input, output,session) {
  

xiaodaigh

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

?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

require(shiny)
require(rCharts)

inputChoices <- c("A", "B", "C", "D")

shinyServer(function(input, output, session){
  	
  	input2Choices <- reactive({
  		inputChoices[-grep(input$input1, inputChoices)]
  	})

xiaodaigh

#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))
}

xiaodaigh

#
#
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)
	

xiaodaigh

To run

shiny::runGist("6684134")

xiaodaigh

library(shiny)
data(pressure)
data(cars)

shinyServer(function(input, output, session) {
  
  # Partial example
  observe({
    

xiaodaigh

$(document).delegate("#mytable",'DOMSubtreeModified','DOMNodeInserted', function(event) {                                           
                    color()
                  });


function color(){
  $('#mytable td').each(function(){
    $(this).css({'background':'#CCC'});
  }) 
}