Kris Eberwein keberwein
keberwein
/ countyfips_map.R
Last active
October 28, 2016 15:25
An example of matching FIPS codes to shape files to map data in R.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(sp) | |
| library(ggplot2) | |
| library(rgeos) | |
| library(rgdal) | |
| library(maptools) | |
| library(tigris) | |
| ### Begin data prep | |
| # Grab air/water quality data from the EPA | |
| url = "https://data.cdc.gov/api/views/cjae-szjv/rows.csv?accessType=DOWNLOAD" |
keberwein
/ server.R
Created
September 23, 2015 15:11
— forked from withr/server.R
Encrypt password with md5 for Shiny-app.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| library(datasets) | |
| Logged = FALSE; | |
| PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad") | |
| # Define server logic required to summarize and view the selected dataset | |
| shinyServer(function(input, output) { | |
| source("www/Login.R", local = TRUE) | |
| observe({ | |
| if (USER$Logged == TRUE) { |
NewerOlder