Joe Cheng jcheng5

CTO of RStudio, Inc. Creator of the Shiny framework.

jcheng5 / app.R

Created May 26, 2016 16:45 — forked from charlesmilk/app.R

Shiny - The grey bar is not follow the size of the plots bigger than the window size

jcheng5 / app1.R

Last active February 25, 2016 16:18 — forked from Vestaxis/app1.R

Three Shiny apps that export UI components to a separate Shiny module.

	# Simple example of exporting UI to another function (this works)

	library(shiny)

	tabUI <- function(id) {
	ns <- NS(id)
	fluidRow(
	textOutput(ns("filter"))
	)
	}

jcheng5 / app.R

Last active November 19, 2015 19:55 — forked from klittle314/app.R

Test Shiny app: submit and clear

	#test app to load the form and clear it for second record entry
	#Kevin Little, Ph.D. 18 Nov 2015

	require(shiny)
	require(shinyapps)
	require(shinyjs)

	#local df taking the place of a Google sheet
	df1 <- data.frame(name="name1", stringsAsFactors = FALSE)

jcheng5 / server.R

Last active April 17, 2018 01:32 — forked from Athospd/server.R

	library(shiny)
	library(magrittr)

	shinyServer(function(input, output, session) {

	#__________________________________________________________________________________
	# The main named list that will be used in many other tasks.
	listN <- reactiveValues()
	makeReactiveBinding("listN")

jcheng5 / DESCRIPTION

Last active August 29, 2015 13:57 — forked from trestletech/server.R

	Title: Basic DataTable
	Author: Jeff Allen <[email protected]>
	AuthorUrl: http://www.rstudio.com/
	License: MIT
	DisplayMode: Showcase
	Tags: mtcars selectinput datatables
	Type: Shiny

jcheng5 / DESCRIPTION

Last active August 29, 2015 13:57 — forked from trestletech/server.R

	Title: Dynamic Clustering
	Author: Jeff Allen <[email protected]>
	AuthorUrl: http://www.rstudio.com/
	License: MIT
	DisplayMode: Showcase
	Tags: mclust clustering clickid observe isolate
	Type: Shiny

jcheng5 / global.R

Created March 11, 2014 18:55 — forked from trestletech/global.R


	# Define a dataset globally which will be available
	# both to the UI and to the server.

	# Rely on the 'WorldPhones' dataset in the datasets
	# package (which generally comes preloaded).
	library(datasets)


	# Trim out the non-consecutive year from

jcheng5 / DESCRIPTION

Last active August 29, 2015 13:57 — forked from trestletech/server.R

	Title: Telephones by region
	Author: Jeff Allen <[email protected]>
	AuthorUrl: http://www.rstudio.com/
	License: MIT
	DisplayMode: Showcase
	Tags: sidebarlayout helptext selectinput
	Type: Shiny

jcheng5 / server.R

Last active January 3, 2016 09:19

	library(shiny)
	library(datasets)

	shinyServer(function(input, output) {

	## Inputs;
	output$uitextInput <- renderUI({
	textInput("caption", "Caption:", "Data Summary")
	})

jcheng5 / server.R

Created August 14, 2013 06:53 — forked from tcash21/server.R

	require(shiny)
	require(rCharts)

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

	shinyServer(function(input, output, session){

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