Tiernan Martin tiernanmartin

## nc-geocode-county-seat-gist.R
library(placement)
library(rvest)
library(janitor)
library(sf)
library(tidyverse)

nc <- read_sf(system.file("shape/nc.shp", package="sf"))

glimpse(nc)

## rstudio-shortcuts.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                tiernanmartin
                / rstudio-shortcuts.md
            
            
              Last active
              January 28, 2018 18:18
            
              
                Shortcuts in Rstudio
              
          
Outcome
Shortcut
Options


Zoom to panel and maximize
Shift+Ctrl+[1-9]
1 = Source, 2 = Console, 3 = Help, etc.


## set-osm-cid-bldg.R
library(sf)
library(osmdata)
library(tidyverse)
library(miscgis)
library(mapview)

# BBOX RESOURCE: http://tools.geofabrik.de/calc/#type=geofabrik_standard&bbox=-122.33,47.595759,-122.311374,47.601725&tab=1&proj=EPSG:4326&places=4

cid_bbox <- c(-122.33, 47.5957, -122.3113, 47.6018)

## test-sf-download-methods.R
# Setup ----

library(rbenchmark)
library(tidyverse)
library(sf)
library(esri2sf)

cols <-  c( "elapsed", "relative", "user.self", "sys.self")

geojson_url <- "https://opendata.arcgis.com/datasets/3fdb7c41de8548c5ab5f96cb1ef303e2_446.geojson"

## sf-join-by-most-area-covered.R

options(
  reprex.advertise = FALSE,
  reprex.si = TRUE,
  reprex.style = TRUE,
  reprex.comment = "##",
  reprex.tidyverse_quiet = TRUE
)

reprex({

## dadu-analysis.R
# SETUP ----
library(tidyverse)
library(treemapify)
library(RSocrata)
library(snakecase)
library(forcats)
library(waffle)
library(rcartocolor)
# DATA ----

## rmarkdown_htmlwidget_arrange.Rmd
---
title: "R Notebook"
output:
  pdf_document: default
  html_notebook: default
---

###Default Arrangement
```{r, echo=FALSE,message=FALSE}
# devtools::install_github("wch/webshot")

## leafletProxyInModule.R
library(shiny)
library(leaflet)
library(RColorBrewer)

quakeMapUI <- function(id){
        ns <- NS(id)

        tagList(
                bootstrapPage(
                tags$style(type = "text/css", "html, body {width:100%;height:100%}"),

## quintileCompare.R
library(grDevices)      # boxplot.stats()
library(operator.tools) # %!in% logical operator
library(tmap)           # 'metro' data set
library(magrittr)       # piping
library(dplyr)          # exploratory data analysis verbs
library(purrr)          # recursive mapping of functions
library(tibble)         # improved version of a data.frame
library(ggplot2)        # dot plot
library(ggrepel)        # avoid label overlap

## leafletBug.R
library(shiny)
library(shinydashboard)
library(leaflet)

header <- dashboardHeader(
        title = "Example",
        titleWidth = "600px"
)

sidebar <- dashboardSidebar(width = "600px")
	library(placement)
	library(rvest)
	library(janitor)
	library(sf)
	library(tidyverse)

	nc <- read_sf(system.file("shape/nc.shp", package="sf"))

	glimpse(nc)
	library(sf)
	library(osmdata)
	library(tidyverse)
	library(miscgis)
	library(mapview)

	# BBOX RESOURCE: http://tools.geofabrik.de/calc/#type=geofabrik_standard&bbox=-122.33,47.595759,-122.311374,47.601725&tab=1&proj=EPSG:4326&places=4

	cid_bbox <- c(-122.33, 47.5957, -122.3113, 47.6018)
	# Setup ----

	library(rbenchmark)
	library(tidyverse)
	library(sf)
	library(esri2sf)

	cols <- c( "elapsed", "relative", "user.self", "sys.self")

	geojson_url <- "https://opendata.arcgis.com/datasets/3fdb7c41de8548c5ab5f96cb1ef303e2_446.geojson"

	options(
	reprex.advertise = FALSE,
	reprex.si = TRUE,
	reprex.style = TRUE,
	reprex.comment = "##",
	reprex.tidyverse_quiet = TRUE
	)

	reprex({
	# SETUP ----
	library(tidyverse)
	library(treemapify)
	library(RSocrata)
	library(snakecase)
	library(forcats)
	library(waffle)
	library(rcartocolor)
	# DATA ----
	---
	title: "R Notebook"
	output:
	pdf_document: default
	html_notebook: default
	---

	###Default Arrangement
	```{r, echo=FALSE,message=FALSE}
	# devtools::install_github("wch/webshot")
	library(shiny)
	library(leaflet)
	library(RColorBrewer)

	quakeMapUI <- function(id){
	ns <- NS(id)

	tagList(
	bootstrapPage(
	tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
	library(grDevices) # boxplot.stats()
	library(operator.tools) # %!in% logical operator
	library(tmap) # 'metro' data set
	library(magrittr) # piping
	library(dplyr) # exploratory data analysis verbs
	library(purrr) # recursive mapping of functions
	library(tibble) # improved version of a data.frame
	library(ggplot2) # dot plot
	library(ggrepel) # avoid label overlap
	library(shiny)
	library(shinydashboard)
	library(leaflet)

	header <- dashboardHeader(
	title = "Example",
	titleWidth = "600px"
	)

	sidebar <- dashboardSidebar(width = "600px")