elipousson

# 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

#' @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

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

elipousson

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

library(dplyr)
library(ggplot2)

school <-
  get_location(
    type = bcpss::bcps_programs_SY2021,
    id_col = "program_number",
    id = 7
  )

elipousson

elipousson

#' Get data on a Streetmix street
#' 
#' 
#' @param url Streetmix url to get data on
#' @param return Type of data to return data, street, location, segments. If
#'   NULL, return full response.
get_street <- function(url, return = NULL) {

  return <- match.arg(return, c("street", "segments"))

elipousson

library(overedge)

program_number <- 237
buffer_dist <- 402.336
bbox_dist <- buffer_dist * 2
neatline_dist <- buffer_dist * 1.75
basemap_scale <- 0.75
asp <- "8:10.5"
mapbox_crs <- 3857