jcheng5

#initialize
library(datasets)
library(ggplot2) 

#helper function (convert vector to named list)
namel<-function (vec){
		tmp<-as.list(vec)
		names(tmp)<-as.character(unlist(vec))
		tmp
	}

jcheng5

require(shiny)
require(rCharts)

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

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

jcheng5

library(shiny)
library(datasets)

shinyServer(function(input, output) {

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

jcheng5

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

jcheng5

# 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

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

jcheng5

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

jcheng5

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

#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

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

library(shiny)

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