walkerke

library(tidycensus)
library(leaflet)
library(sf)
library(viridis)
options(tigris_use_cache = TRUE)

il1 <- get_acs(geography = "county", 
               variables = c(hhincome = "B19013_001"), 
               state = "IL", 
               geometry = TRUE) %>%

zross

Suggestions from Twitter for more "elegant" web mapping applications

Specifically I'm looking for web mapping applications that include multiple layers and don't look like an ArcGIS clone -- perhaps something that looks like it was designed by a designer rather than a GIS tech :) This is a list of responses from Twitter, many of which do look GIS-y so more suggestions are welcome...

• https://zola.planning.nyc.gov/about#9.72/40.7125/-73.733
• http://www.censushardtocountmaps2020.us/
• http://historiccensus.longislandindexmaps.org/
• http://longislandindexmaps.org/
• http://dvrpc.org/mapping/webmaps
• http://dvrpc.org/webmaps/tod/

Aymkdn

/**
 * Start a workflow
 * 
 * @param  {Object} params
 *   @param {String} params.listName The name of the list
 *   @param {Number} params.itemID The item ID
 *   @param {String} params.workflowName The name of the workflow
 *   @param {Array|Object} [params.parameters] An array of object with {Name:"Name of the parameter", Value:"Value of the parameter"}
 *   @param {Function} [params.after] Callback after the request is done
 */

oscarperpinan

## https://timogrossenbacher.ch/2016/12/beautiful-thematic-maps-with-ggplot2-only/
library(raster)
library(sp)
library(rgdal)
library(viridisLite)
library(rasterVis)

## Read age data
data <- read.csv("input/avg_age_15.csv", stringsAsFactors = F)
## Read shapefile

mckneisler

Public Function quote(sString As String) As String
    quote = Chr(34) + sString + Chr(34)
End Function

Public Function URLEncode(sString As String) As String
  Dim iLen As Integer
  iLen = Len(sString)

  If iLen > 0 Then
    ReDim sResult(iLen) As String

CurtHagenlocher

let
    Web.MultiPartPost = (url as text, parts as record) as binary =>
        let
            unique = Text.NewGuid(),
            boundary = "--" & unique,
            crlf = "#(cr)#(lf)",
            item = (name, value) =>
                let
                    filename = Value.Metadata(value)[name]?,
                    contentType = Value.Metadata(value)[type]?,

CurtHagenlocher

let
    Value.WaitFor = (producer as function, interval as function, optional count as number) as any =>
        let
            list = List.Generate(
                () => {0, null},
                (state) => state{0} <> null and (count = null or state{0} < count),
                (state) => if state{1} <> null
                    then {null, state{1}}
                    else {1 + state{0}, Function.InvokeAfter(() => producer(state{0}), interval(state{0}))},
                (state) => state{1})

andyweiss1982

name: Dad Joke API Example
description: Very basic implementation of fetching data and putting into Excel
host: EXCEL
api_set: {}
script:
  content: |
    const button = document.querySelector("button");
    button.addEventListener("click", run);

    async function getRandomDadJoke(){

seanjtaylor

MarkTiedemann

let 
    BaseUrl         = "https://fake-odata-api.com/v1/Entities?",
    Token           = "F4K3-T0K3N-D0NT-U5E-L0L",
    EntitiesPerPage = 1000,
 
    GetJson = (Url) =>
        let Options = [Headers=[ #"Authorization" = "Bearer " & Token ]],
            RawData = Web.Contents(Url, Options),
            Json    = Json.Document(RawData)
        in  Json,