xiaodaigh

shiny::runGitHub("shinyhandsontable-example","xiaodaigh")

xiaodaigh

library(shiny)

# Define server logic for random distribution application
shinyServer(function(input, output) {
  
	# Reactive expression to generate the requested distribution. This is 
	# called whenever the inputs change. The renderers defined 
	# below then all use the value computed from this expression
	data <- reactive({  
		dist <- switch(input$dist,

xiaodaigh

d <- parse("server stripped bare.R")
dc <- as.character(d)

reactives <- NULL
# find reactive sources
for(t in dc) {
	if( grepl("reactive(.*)$",t)) { #if it is reactive
		g <- gregexpr("^[A-Za-z0-9._]*",t)
		p <- as.numeric(g[[1]])
		l <- attr(g[[1]],"match.length")

xiaodaigh

item1,item2,item3,item4,item5,item6,item7,item8,item9,item10
1,1,,,1,1,,,,
,,1,1,,,1,1,,
1,,,,1,,,,1,1
,1,,1,1,,1,,1,
1,1,1,1,1,1,,,,1
,1,,,,,1,,,
,,1,1,1,1,,1,,
1,,,1,,,,1,,1
,,1,1,1,,,,1,1

xiaodaigh

library(shiny)
#tu<-read.csv(file="tu.csv", header = TRUE, sep = ",")
#attach(tu)
tu <- data.frame(id=rnorm(1000),size=rnorm(1000),months=rnorm(1000))

shinyServer(function(input, output) {
  it<- reactive({
		print(input$tu)
		switch(input$tu,
			   "id" = tu$id,

xiaodaigh

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


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

xiaodaigh

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

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

xiaodaigh

To run

shiny::runGist("6684134")

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

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