jbryer

# This script is modified by Jason Bryer (jason@bryer.org) from Huidong Tian's 
# original script. The blog post describing the method is here:
# http://withr.me/authentication-of-shiny-server-application-using-a-simple-method/ 
# The original R script is located here: https://gist.github.com/withr/9001831
#
# This script adds two new features: 1. Render a logout button, and 2. provide
# the ability for visitors to create a new account.
#
# Within your server.R file, be sure to use:
# 

jbryer

library(ggplot2)
library(reshape2)

weather <- read.csv('DisneyMarathonWeather.csv')

weather.melt <- melt(weather[,c('Year', 'Low', 'High', 'Wind', 'StartHumidity', 'Sky')],
					 id.vars = c('Year', 'Wind', 'StartHumidity', 'Sky'))
ggplot(weather.melt, aes(x = Year)) + 
	geom_ribbon(data = weather, aes(ymin = Low, ymax = High), alpha = 0.3, fill = 'skyblue') +
	geom_path(aes(y = value, group = variable)) +

jbryer

# Run the App on a Shiny Server
library(shiny)
source('shiny_param_test.R')
shiny::shinyApp(ui = shiny_ui,
                server = shiny_server)

jbryer

library(tidyverse)
library(reshape2)
library(lubridate)
library(rnoaa)

token <- '' # Get token here: https://www.ncdc.noaa.gov//cdo-web/token
options(noaakey = token)

marathon_dates <- c('2021-01-10','2020-01-12','2019-01-13',
					'2018-01-07','2017-01-08','2016-01-10','2015-01-11','2014-01-12',

jbryer

# This script is modified by Jason Bryer (jason@bryer.org) from Huidong Tian's
# original script. The blog post describing the method is here:
# http://withr.me/authentication-of-shiny-server-application-using-a-simple-method/
# The original R script is located here: https://gist.github.com/withr/9001831
#
# This script adds two new features: 1. Render a logout button, and 2. provide
# the ability for visitors to create a new account.
#
# Within your server.R file, be sure to use: source('Login.R', local=TRUE)
#