To run
shiny::runGist("6684134")
evalparse xiaodaigh
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
| shiny::runGitHub("shinyhandsontable-example","xiaodaigh") |
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) | |
| # 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
/ genGraphVizCode.r
Last active
December 22, 2015 08:39
Generating GraphViz code for visualizing Shiny reactive dependencies
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
| 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
/ dataset.txt
Last active
December 22, 2015 19:29
— forked from jcheng5/dataset.txt
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
| 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 |
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) | |
| #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
/ color.js
Created
September 22, 2013 17:56
— forked from anonymous/color.js
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
| $(document).delegate("#mytable",'DOMSubtreeModified','DOMNodeInserted', function(event) { | |
| color() | |
| }); | |
| function color(){ | |
| $('#mytable td').each(function(){ | |
| $(this).css({'background':'#CCC'}); | |
| }) | |
| } |
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) | |
| data(pressure) | |
| data(cars) | |
| shinyServer(function(input, output, session) { | |
| # Partial example | |
| observe({ | |
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
| # | |
| # | |
| 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) | |
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
| #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)) | |
| } |
OlderNewer