| // PROBLEM: in Google Documents, sometimes you want numbered headings, but the UI makes you a new list each time. | |
| // INSIGHT: it's possible, but you have to script it. | |
| // SOLUTION: this script adds OL+LI to Hs, all using the same listID | |
| // DOWNLOAD: get the latest version of this gist from https://gist.github.com/mengwong/f597d064366f555b5f4e | |
| // INSTALL: Go to Tools / Editor. Paste this in. Hit save. You can run it by pressing the "play" button, or from the Add-Ons menu. | |
| // | |
| // USAGE: | |
| // REQUIRED: Define all your headings as actual headings and not just big bold Normal. Come on, people, learn to use paragraph styles already. | |
| // OPTIONAL: Manually make the first H1 in the document a numbered list. We'll use that as a reference heading for all the others. | |
| // OPTIONAL: Manually set the list style to "Decimal Outline" (the style that has 1.1.2 type numbering) ... I like this best. |
Playing with adding + operator for easily joining geojson objects together into a single
valid geojson object. This is relatively easy with lists, but not so easy with json unless you speak json.
Get lawn package too for viewing data
devtools::install_github("ropensci/geojsonio")
| library(rvest) | |
| library(magrittr) | |
| library(tidyr) | |
| library(dplyr) | |
| library(stringr) | |
| character_data <- function(chname){ | |
| paste0("http://en.memory-alpha.org/wiki/", chname) %>% | |
| html %>% | |
| html_nodes(".wiki-sidebar") %>% |
| // XPath CheatSheet | |
| // To test XPath in your Chrome Debugger: $x('/html/body') | |
| // http://www.jittuu.com/2012/2/14/Testing-XPath-In-Chrome/ | |
| // 0. XPath Examples. | |
| // More: http://xpath.alephzarro.com/content/cheatsheet.html | |
| '//hr[@class="edge" and position()=1]' // every first hr of 'edge' class |
| library('devtools') | |
| library('utils') | |
| library('httr') | |
| update_github <- | |
| function(ask = TRUE, ...){ | |
| installed <- installed.packages() | |
| oldVersion <- installed[,'Version'] | |
| urls <- sapply(names(oldVersion), function(x){ | |
| d <- packageDescription(x) |
R + Shiny + d3js: Blank HTML UI template.
http://rstudio.github.io/shiny/tutorial/#html-ui
Everything but server.R belongs in 'www' directory.
|-- www |-- index.html |-- server.R
| .Rproj.user | |
| .Rhistory | |
| .RData | |
| *.Rproj | |
| *.html |
| library(data.table); | |
| library(maps); | |
| library(maptools); | |
| library(spatstat); | |
| library(zipcode); | |
| library(GISTools) | |
| #load the zipcode dataset | |
| data(zipcode); | |
| Data sources: | |
| CDC data on vaccine coverage: http://www.cdc.gov/flu/professionals/vaccination/reporti1112/reporti/index.htm | |
| CDC data on current influenza situation: http://gis.cdc.gov/grasp/fluview/fluportaldashboard.html | |
| Historical flu data: http://www.cdc.gov/flu/weekly/pastreports.htm | |
| Locations of hospitals in Boston: https://data.cityofboston.gov/Public-Health/Hospital-Locations/46f7-2snz | |
| NetLogo, a simple agent based model: http://ccl.northwestern.edu/netlogo/ | |
| Nemsis, emergency medical services API (haven't used this one myself): http://www.nemsis.org/v3/downloads/v3Archive.html | |
| Written for R, but useful for epi basics in any language: cran.r-project.org/doc/contrib/Epicalc_Book.pdf | |
| "Provides access to health statistics and information on hospital inpatient and emergency department utilization": http://hcupnet.ahrq.gov/ | |
| Healthcare Research and Quality data directory: http://www.ahrq.gov/data/dataresources.htm |
