Yann Richet yannrichet

gdepalma / server.R

Created January 9, 2013 18:24

Testing progress bar for shiny app.

	library(shiny)

	shinyServer(function(input, output) {

	output$intense <- reactivePrint(function() {
	if(input$panel==2){
	Sys.sleep(10)
	return('Finished')
	}else({return(NULL)})
	})

alexbbrown / d3widget.js

Last active October 18, 2016 20:58 — forked from anonymous/d3widget.js

Simple Shiny Example of Javascript Input and Output

	<script src="http://d3js.org/d3.v3.js"></script>
	<script type="text/javascript">
	(function(){
	// Probably not idiomatic javascript.

	this.countValue=0;

	updateView = function(message) {

	var svg = d3.select(".d3io").select("svg")

anonymous / d3widget.js

Created December 22, 2012 08:05

Demo of how to link shiny to javascript (D3 here) and have cumulative data transfer

	<script src="http://d3js.org/d3.v3.js"></script>
	<script type="text/javascript">
	(function(){
	// Probably not idiomatic javascript.

	this.countValue=42;

	updateView = function(message) {

	var svg = d3.select(".d3io").select("svg")

wch / server.r

Last active September 8, 2023 20:25

Shiny example: dynamic input fields

	data_sets <- c("mtcars", "morley", "rock")

	shinyServer(function(input, output) {

	# Drop-down selection box for which data set
	output$choose_dataset <- renderUI({
	selectInput("dataset", "Data set", as.list(data_sets))
	})

	# Check boxes

jcheng5 / server.R

Created November 10, 2012 08:13

Shiny file upload demo

	shinyServer(function(input, output) {
	output$filetable <- reactiveTable(function() {
	if (is.null(input$files)) {
	# User has not uploaded a file yet
	return(NULL)
	}

	input$files
	})
	})