Skip to content

Instantly share code, notes, and snippets.

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)
.chart_container {
position: relative;
display: inline-block;
font-family: Arial, Helvetica, sans-serif;
}
.rChart {
display: inline-block;
margin-left: 40px;
}
.yAxis {
@tcash21
tcash21 / app.css
Last active December 21, 2015 13:49
.chart_container {
position: relative;
display: inline-block;
font-family: Arial, Helvetica, sans-serif;
}
.rChart {
display: inline-block;
margin-left: 40px;
}
.yAxis {
.chart_container {
position: relative;
display: inline-block;
font-family: Arial, Helvetica, sans-serif;
}
.rChart {
display: inline-block;
margin-left: 40px;
}
.yAxis {
@tcash21
tcash21 / app.css
Last active December 21, 2015 04:29
.chart_container {
position: relative;
display: inline-block;
font-family: Arial, Helvetica, sans-serif;
}
.rChart {
display: inline-block;
margin-left: 40px;
}
.yAxis {
@tcash21
tcash21 / server.R
Last active December 21, 2015 03:28
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
tcash21 / server.R
Created August 14, 2013 21:58
Understanding Reactivity
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
tcash21 / app.css
Last active December 21, 2015 02:19
Rickshaw chart error in Shiny
.chart_container {
position: relative;
display: inline-block;
font-family: Arial, Helvetica, sans-serif;
}
.rChart {
display: inline-block;
margin-left: 40px;
}
.yAxis {
@tcash21
tcash21 / server.R
Last active December 21, 2015 01:09
DynamicUI example in Shiny
require(shiny)
require(rCharts)
inputChoices <- c("A", "B", "C", "D")
shinyServer(function(input, output, session){
input2Choices <- reactive({
inputChoices[-grep(input$input1, inputChoices)]
})
import csv
import re
import sys
import urllib2
from bs4 import BeautifulSoup
page = urllib2.urlopen("http://fantasyfootballcalculator.com/completed_drafts.php?format=standard").read()
soup = BeautifulSoup(page)
#print soup.prettify()