d3noob

license: mit

andrewcharlesmoss

// v2
/* UPDATE 13/02/2022
Added columns argument and made each optional
*/

// Returns an array of unique random numbers

RANDUNIQUE =

LAMBDA([rows],[columns],[min],[max],

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,

seanjtaylor

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(){

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})

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]?,

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

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

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
 */