Skip to content

Instantly share code, notes, and snippets.

View ozjimbob's full-sized avatar

Grant Williamson ozjimbob

23 followers · 12 following
View GitHub Profile
@ozjimbob
ozjimbob / day2.r
Created December 2, 2022 10:01
# Data file is as provided
data <- read.delim("data_02.txt",header=FALSE,sep=" ")
# Simple lsit to look up scores for Rock/Paper/Scissors
scores <- list(X=1, Y=2, Z=3)
# Look-up matrix for win/lose/draw conditions, R/P/S in rows/columns
WLD <- matrix(c(3,0,6,
6,3,0,
0,6,3),nrow=3)
@ozjimbob
ozjimbob / test.js
Created November 30, 2022 23:46
<html><head><title>Test Page</title>
<script type="text/javascript">
// Example POST method implementation:
async function postData(url = '', data = {}) {
const response = await fetch(url, {
method: 'POST', // *GET, POST, PUT, DELETE, etc.
mode: 'no-cors', // no-cors, *cors, same-origin
cache: 'no-cache', // *default, no-cache, reload, force-cache, only-if-cached
credentials: 'same-origin', // include, *same-origin, omit
@ozjimbob
ozjimbob / blah.r
Created October 11, 2022 22:33
blah.r
library(tidyverse)
library(plumber)
library(sf)
library(geojson)
register_serializer("geojson", serializer_geojson, verbose = TRUE)
#* @serializer geojson
#* @get /points
points <- function() {
@ozjimbob
ozjimbob / rain.r
Last active June 13, 2022 23:54
Raindrops
library(tickle)
x11(type = 'dbcairo', antialias = 'none')
dev.control(displaylist = 'inhibit')
df = data.frame(x=runif(10,-1,1),y=runif(10,-1,1),size=rep(1,10))
size <- reactive_dbl(value=6)
rate <- reactive_dbl(value=10)
@ozjimbob
ozjimbob / gdalinfo_txt.
Created August 25, 2021 00:13
GDAL INFO
# gdalinfo for a large, integer raster:
Driver: GTiff/GeoTIFF
Files: r_vegmax.tif
Size is 34269, 31580
Coordinate System is:
PROJCS["unknown",
GEOGCS["unknown",
DATUM["Unknown_based_on_GRS80_ellipsoid",
SPHEROID["GRS 1980",6378137,298.2572221010042,
@ozjimbob
ozjimbob / remove_invalid_poly.r
Created April 28, 2021 02:30
Kill Bad Polygons Dead
remove_invalid_poly <- function(xx){
to_fix=c()
for(i in 1:nrow(xx)){
mn <- min(sapply(st_geometry(xx)[[i]], function(x) nrow(x[[1]])))
if(mn < 4){
to_fix <- c(to_fix,i)
}
}
for(fix_list in to_fix){
@ozjimbob
ozjimbob / ProcessList2
Created June 20, 2020 23:11
library(tidyverse)
library(purrr)
library(readxl)
library(jsonlite)
# Read your spreadsheet
input <- read_excel("Book1-2.xlsx")
# Take your column C and put it into a list, by interpreting the JSON
data <- map(input$context,fromJSON)
@ozjimbob
ozjimbob / process_list
Created June 20, 2020 09:18
library(tidyverse)
library(purrr)
# Make a list that looks a bit like yours
# It has two entries
# Each entry has two "normal fields (application, user) - which have different lengths
# And a third field "custom" which contains the weird, staggered dataframe
data <- list()
@ozjimbob
ozjimbob / gist:b4aa5cb6c873d96adcc30ea9ab2fac85
Created May 12, 2020 23:40
deb https://qgis.org/ubuntu-ltr focal main
deb-src https://qgis.org/ubuntu-ltr focal main
deb https://cloud.r-project.org/bin/linux/ubuntu focal-cran40/
deb-src https://cloud.r-project.org/bin/linux/ubuntu focal-cran40/
@ozjimbob
ozjimbob / map.r
Last active April 19, 2020 11:42
# If you don't have them installed, install ggmap and ggplot2 packages
install.packages("ggmap")
install.packages("ggplot2")
# Load these packages
library(ggmap)
library(ggplot2)