tcash21

require(shiny)
require(rCharts)

inputChoices <- c("A", "B", "C", "D")
adf <- data.frame(val1=sample(inputChoices), val2=sample(inputChoices))


shinyServer(function(input, output, session){
    
  	input2Choices <- reactive({

tcash21

require(shiny)
require(rCharts)

inputChoices <- c("A", "B", "C", "D")
adf <- data.frame(val1=sample(inputChoices), val2=sample(inputChoices))


shinyServer(function(input, output, session){
      
  	input2Choices <- reactive({

tcash21

.chart_container {
  position: relative;
  display: inline-block;
  font-family: Arial, Helvetica, sans-serif;
}
.rChart {
  display: inline-block;
  margin-left: 40px;
}
.yAxis {

tcash21

.chart_container {
  position: relative;
  display: inline-block;
  font-family: Arial, Helvetica, sans-serif;
}
.rChart {
  display: inline-block;
  margin-left: 40px;
}
.yAxis {

tcash21

.chart_container {
  position: relative;
  display: inline-block;
  font-family: Arial, Helvetica, sans-serif;
}
.rChart {
  display: inline-block;
  margin-left: 40px;
}
.yAxis {

tcash21

.chart_container {
  position: relative;
  display: inline-block;
  font-family: Arial, Helvetica, sans-serif;
}
.rChart {
  display: inline-block;
  margin-left: 40px;
}
.yAxis {

tcash21

library(shiny)
library(ggplot2)
library(shinyIncubator)

# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output, session) {

  getData <- function(){
    x <- seq(Sys.Date() - (input$nobs - 1), Sys.Date(), by="days")
    y <- rnorm(input$nobs, 5, 100)

tcash21

.well {
  width: 250px;
}

tcash21

import praw
import re
import pandas as pd
import tinys3

## S3 Connection Credentials
conn = tinys3.Connection('S3_ACCESS_KEY','S3_SECRET_KEY',tls=True)

## Login to Reddit
r = praw.Reddit(user_agent='Live r/NFL Game Thread Scraper')

tcash21

library(stattleshipR)
library(ggplot2)
library(dplyr)
library(shiny)
library(shinydashboard)
library(RCurl)

## get a free Stattleship API token from www.stattleship.com
set_token("stattleship-token")