Skip to content

Instantly share code, notes, and snippets.

View elipousson's full-sized avatar

Eli Pousson elipousson

131 followers · 293 following
View GitHub Profile
@elipousson
elipousson / baltimore-area_arcgis-rest-server-connections_qgis.xml
Created August 24, 2022 16:45
Connections export file to load into QGIS using the ArcGIS REST Services feature of the Browser panel. All servers are public and do not authentication to access. This connection list is a subset of the Maryland ArcGIS REST API Services index: https://docs.google.com/spreadsheets/d/1c829bZdNqvbpoizulBU_XE5jVeNNck2kHkS-smpQ52s/edit?usp=sharing
<!DOCTYPE connections>
<qgsARCGISFEATURESERVERConnections version="1.0">
<arcgisfeatureserver authcfg="" referer="" username="" url="https://gis.aacounty.org/arcgis/rest/services" name="Anne Arundel County GIS" password=""/>
<arcgisfeatureserver authcfg="" referer="" username="" url="https://services1.arcgis.com/mVFRs7NF4iFitgbY/arcgis/rest/services" name="BNIA-JFI Vital Signs Open Data Portal" password=""/>
<arcgisfeatureserver authcfg="" referer="" username="" url="https://services1.arcgis.com/UWYHeuuJISiGmgXx/ArcGIS/rest/services" name="Baltimore City ArcGIS Online Assorted" password=""/>
<arcgisfeatureserver authcfg="" referer="" username="" url="https://dotgis.baltimorecity.gov/arcgis/rest/services" name="Baltimore City DOT GIS" password=""/>
<arcgisfeatureserver authcfg="" referer="" username="" url="https://dpwgis.baltimorecity.gov/ags102/rest/services" name="Baltimore City DPW GIS" password=""/>
<arcgisfeatureserver authcfg="" referer="" username="" url="https://services1.arcgi
@elipousson
elipousson / 2022-07-20_noi-zip.R
Last active July 21, 2022 02:18
A R script to convert Maryland open data on notice of intent to foreclose by zipcode from a wide to a long format and create basic visualizations. Data: https://opendata.maryland.gov/Housing/Maryland-Notices-of-Intent-to-Foreclose-by-Zip-Cod/ftsr-vapt
library(dplyr)
library(ggplot2)
# pak::pkg_install("elipousson/mapmaryland")
plot_theme <- list(
hrbrthemes::theme_ipsum_pub(base_size = 15),
cols4all::scale_color_discrete_c4a_cat(palette = "tol.medium"),
cols4all::scale_fill_discrete_c4a_cat(palette = "tol.medium")
)
@elipousson
elipousson / 2022-07-15_elipousson-mapbaltimore-presentation.Rmd
Created July 15, 2022 15:38
RMarkdown to accompany presentation on mapbaltimore package https://docs.google.com/presentation/d/1nWlSZODcwqzWPaxRaChk4IwkaBp75cX3Khoxr2KNEnU/edit?usp=sharing
---
title: "mapbaltimore, getdata, and maplayer"
output: html_document
date: '2022-07-15'
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
@elipousson
elipousson / get_osm_static_mapbox_example.R
Created June 20, 2022 03:23
# pak::pkg_install("elipousson/overedge")
library(overedge)
get_osm_static_mapbox(
id = "way/49664223",
dist = 0.5,
unit = "mi",
overlay_style = list(
stroke = "darkgreen",
@elipousson
elipousson / get_nounproject_icon.R
Created June 3, 2022 18:53
#' @name get_nounproject_icon
#' @noRd
get_nounproject_icon <- function(
token = NULL) {
token <- get_access_token(type = "NOUNPROJECT_API_KEY")
secret <- get_access_token(type = "NOUNPROJECT_SECRET_API_KEY")
# https://api.thenounproject.com/explorer
@elipousson
elipousson / releaseAnchoredItems.jsx
Created June 1, 2022 14:07
From: https://web.archive.org/web/20210115154525/https://yourscriptdoctor.com/release-anchored-items/
try {
var docRef = getDocRef();
var objStyleRef = getObjStyle (docRef, styleName, wrapAmt);
var sList = docRef.stories;
for (var j = 0; j < sList.length;j++) {
var storyRef = docRef.stories[j];
var sItems = storyRef.splineItems;
if (sItems.length > 0) {
for (var i = sItems.length - 1; i >= 0; i--) {
cnt ++;
@elipousson
elipousson / 2022-05-13_jonathan-st-clip-area-revised.geojson
Created May 14, 2022 02:29
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@elipousson
elipousson / 2022-05-13_jonathan-st-area-revised.geojson
Last active May 20, 2022 18:59
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@elipousson
elipousson / 2022-05-02_make-cards.R
Created May 3, 2022 00:40
library(dplyr)
library(ggplot2)
library(ragg)
library(systemfonts)
# NOTE: The url is not included because it contained copyright protected text from this game https://sniperserpent.itch.io/oupost-alpha
# url <- "https://docs.google.com/spreadsheets"
# Thing 1 ----
cards_init <-
@elipousson
elipousson / 2022-04-11_area_intersection_index_map.R
Created April 11, 2022 17:24
library(dplyr)
library(ggplot2)
school <-
get_location(
type = bcpss::bcps_programs_SY2021,
id_col = "program_number",
id = 7
)