Skip to content

Instantly share code, notes, and snippets.

Avatar

evalparse xiaodaigh

View GitHub Profile
View server.R
require(shiny)
require(rCharts)
inputChoices <- c("A", "B", "C", "D")
shinyServer(function(input, output, session){
input2Choices <- reactive({
inputChoices[-grep(input$input1, inputChoices)]
})
View color.js
$(document).delegate("#mytable",'DOMSubtreeModified','DOMNodeInserted', function(event) {
color()
});
function color(){
$('#mytable td').each(function(){
$(this).css({'background':'#CCC'});
})
}
View dataset.txt
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
You can’t perform that action at this time.