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

# 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: 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

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

brew install rds-command-line-tools

rds-create-db-parameter-group mysql-utf8 -f mysql5.1 -d "MySQL 5.1 configured for UTF-8"

rds-modify-db-parameter-group mysql-utf8 \
    --parameters="name=character_set_server, value=utf8, method=immediate" \
    --parameters="name=character_set_client, value=utf8, method=immediate" \
    --parameters="name=character_set_results,value=utf8,method=immediate" \
    --parameters="name=collation_server, value=utf8_general_ci, method=immediate" \
    --parameters="name=collation_connection, value=utf8_general_ci, method=immediate"

jcheng5

library(shiny)

shinyServer(function(input, output) {
   re <- reactive(function(){
      cat("re called\n",file=stderr())
      input$n
   })

   output$ntext <- reactiveText(function() {
      cat("output$ntext called\n",file=stderr())

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

# Some pre-computed stuff in R. In this example, just assign values to a var
# data_sets <- c("mtcars", "morley", "rock")

data_sets <- c("mymtcars","mtcars", "morley", "rock")
mymtcars <- mtcars[,1:4]

shinyServer(function(input, output) {

  mymtcars <- mymtcars

jcheng5

<script src="https://github.com/livereload/livereload-js/raw/master/dist/livereload.js?host=localhost"></script>

jcheng5