This file contains 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
cigar | |
rebut | |
sissy | |
humph | |
awake | |
blush | |
focal | |
evade | |
naval | |
serve |
This file contains 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(tidyverse) | |
download.file("http://thedataweb.rm.census.gov/pub/cps/march/asec2017_pubuse.zip", "asec2017_pubuse.zip") | |
download.file("http://thedataweb.rm.census.gov/pub/cps/march/asec2016_pubuse_v3.zip", "asec2016_pubuse.zip") | |
download.file("http://thedataweb.rm.census.gov/pub/cps/march/asec2015_pubuse.zip", "asec2015_pubuse.zip") | |
unzip("asec2017_pubuse.zip", "asec2017_pubuse.dat") | |
unzip("asec2016_pubuse.zip", "asec2016_pubuse_v3.dat") | |
unzip("asec2015_pubuse.zip", "asec2015_pubuse.dat") | |
gendata <- function(flnm){ | |
read_fwf(flnm, | |
fwf_cols(rectype=c(1,1), |
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
This file contains 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
## This is a comment. | |
## | |
## R code to do two data visualizations for hospitals and health data. | |
## Requires healthandhospitals.csv | |
## Also requires 4 packages: dplyr, ggplot2, reshape2, and scales | |
## To download those packages, type the following: | |
setInternet2(TRUE) ## This helps download packages in our firewalled environment | |
install.packages(c("dplyr", "ggplot2", "reshape2", "scales"), dependencies=TRUE) |
This file contains 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
<script> | |
function getLocation() { | |
if(navigator.geolocation) | |
{ | |
navigator.geolocation.getCurrentPosition(postLocation); | |
function postLocation(position) | |
{ | |
jQuery.post( '{{=URL('set_location')}}',{lat: +position.coords.latitude, lng: +position.coords.longitude }); | |
} | |
} |
This file contains 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
controller: | |
def index() | |
return dict(latitude=session.latitude, longitude=session.longitude) | |
def set_location(): | |
session.latitude = request.vars.lat | |
session.longitude = request.vars.lng | |
default/index.html: |