Skip to content

Instantly share code, notes, and snippets.

View StevenMMortimer's full-sized avatar

Steven M. Mortimer StevenMMortimer

View GitHub Profile
library(shiny) #shiny_0.11.1.9005
library(DT) #DT_0.0.41
# create sample table
data <- matrix(1:200000, ncol = 4, dimnames=list(NULL, c("Row Index", "V1", "V2", "V3")))
ui = shinyUI(
fluidPage(
fluidRow(
column(1),