aoles’s gists

aoles / barrier_access_taginfo.R

Created October 7, 2021 10:02

Query taginfo for barrier access values unknown to ORS

	library(jsonlite)

	# retrieve all possible node access values which come up at least 10 times
	url <- "https://taginfo.openstreetmap.org/api/4/key/values?key=%s&filter=nodes&sortname=count&sortorder=desc&qtype=value&format=json_pretty"
	key <- "access"
	res <- fromJSON(sprintf(url, key))

	df <- res[["data"]]

	# filter out combined and rare values

aoles / weightings.R

Created November 24, 2020 10:07

Priority weightings compared

aoles / coordinates_bayern-cycling-1000.Rda

Last active June 15, 2020 14:49

Source files of https://rpubs.com/aoles/cyclingWeightings

View raw

aoles / app.R

Last active June 15, 2020 12:03

Shiny app for comparing ORS cycling weighting alternatives https://aoles.shinyapps.io/cyclingWeightings/

	library(shiny)
	library(leaflet)
	library(openrouteservice)
	library(lubridate) #convert seconds to hh:mm

	# Precomputed random routes in Bayern
	load("routes.rda")

	lapply(res, function(routes) {
	sapply(routes, function(x) x$features[[1]]$properties$summary$distance/1000)

aoles / mannheim.sh

Created October 25, 2018 10:32

Sample script for creating geographic extracts of OSM data

	#!/bin/bash
	URL=https://download.geofabrik.de/europe/germany/baden-wuerttemberg/karlsruhe-regbez-latest.osm.pbf
	RELATION_ID=62691
	RELATION_NAME=mannheim
	###

	echo "Downloading $URL"
	SOURCE=$(basename "$URL")
	curl $URL -o $SOURCE

aoles / bash.Rmd

Created October 8, 2018 10:09

Save bash code chunks in R Markdown documents into separate script files

	---
	output: html_document
	---

	```{r setup, include=FALSE}
	knit_hooks_source <- knitr::knit_hooks$get("source")
	knitr::knit_hooks$set(source = function (x, options) {
	if (!is.null(options$save))
	writeLines(x, options$save)
	knit_hooks_source(x, options)

aoles / app.R

Last active April 1, 2021 23:53

ORS isochrones demo Shiny app https://aoles.shinyapps.io/isochrones

	library(shiny)
	library(leaflet)
	library(openrouteservice)

	ui <- bootstrapPage(
	includeScript("busy_indicator.js"),
	includeScript("lazy_sliders.js"),
	includeCSS("style.css"),
	leafletOutput("map", width = "100%", height = "100%"),
	absolutePanel(top = 10, right = 10, id="controls",

aoles / app.R

Last active April 1, 2021 23:44

ORS directions demo Shiny app https://aoles.shinyapps.io/directions

	library(shiny)
	library(leaflet)
	library(openrouteservice)

	## User interface definition
	ui <- bootstrapPage(
	includeScript("busy_indicator.js"),
	includeCSS("style.css"),
	leafletOutput("map", width = "100%", height = "100%"),
	absolutePanel(top = 10, right = 10, id="controls",

aoles / bombs.Rmd

Last active July 1, 2018 16:16

Source files for http://rpubs.com/aoles/bombs_google

	---
	title: "London Blitz Bombs"
	author: "Andrzej K. Oleś"
	output: html_document
	---

	```{r config, include=FALSE}
	## set up knitr defaults
	knitr::opts_chunk$set(eval=TRUE, out.width='100%', out.height='560px')
	```

aoles / bombs.Rmd

Last active June 6, 2018 14:49

Source files for https://rpubs.com/aoles/bombs_ors

	---
	title: "London Blitz Bombs"
	author: "Andrzej K. Oleś"
	output: html_document
	---

	```{r config, include=FALSE}
	## set up knitr defaults
	knitr::opts_chunk$set(eval=TRUE, out.width='100%', out.height='560px')
	```

Andrzej K. Oleś aoles