% Title % Name % Date
List
# load libraries | |
library(tidyverse) | |
library(osmdata) | |
library(sf) | |
library(ggtext) | |
library(exactextractr) | |
library(fasterize) | |
library(ggtext) | |
library(tidygeocoder) | |
library(glue) |
#Load the library and make a basic map | |
library(leaflet) | |
leaflet() %>% addTiles() | |
#Show a map with a satellite picture on it | |
leaflet() %>% | |
addTiles(urlTemplate="http://server.arcgisonline.com/ArcGIS/rest/services/World_Imagery/MapServer/tile/{z}/{y}/{x}") | |
#Make a demo fake data set |
#!/usr/bin/env python | |
import psycopg2 as pg | |
import Image | |
from sys import argv | |
conn = pg.connect(database='tweets', user='char', host='localhost') | |
cur = conn.cursor() | |
pxper = 16 |
library(shiny) | |
library(deSolve) | |
library(ggplot2) | |
# Define server logic required to plot various variables | |
shinyServer(function(input, output) { | |
solveLorenz <- function(pars, times=tout) { | |
derivs <- function(t, state, pars) { # returns rate of change | |
with(as.list(c(state, pars)), { |
license: gpl-3.0 | |
height: 600 | |
redirect: https://observablehq.com/@d3/d3-force-directed-graph |
library(rgeos) | |
data(wrld_simpl) | |
plot(wrld_simpl, col='white', bg='grey9', border=NA) | |
limx <- c(-6,1) | |
limy <- c(49,60) | |
plot(wrld_simpl, xlim=limx, ylim=limy, col='white', bg='grey9', border=NA) | |
# Apply RDP algorithm with distance variable = 0.4 degrees |