Bohdan Szymanik bohdanszymanik
bohdanszymanik
/ ApplicativeValidation.fsx
Last active
December 30, 2018 08:16
Getting my head round applicative validation
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| // Exploring validation approaches | |
| // (To start off a no validation option then...) | |
| // Firstly by using an Option type to return Some error text or None if ok - well, actually we end up wrapping the output with Result just because we can | |
| // Secondly by using a Result type and applicative validation a la https://fsharpforfunandprofit.com/posts/elevated-world-3/#validation | |
| open System | |
| module Result = | |
| let apply fResult xResult = | |
| match fResult, xResult with |
bohdanszymanik
/ temp.kt
Created
May 22, 2019 08:22
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import java.time.LocalDateTime | |
| import java.time.format.DateTimeFormatter | |
| fun main(args : Array<String>) { | |
| var value1 = 1 | |
| var value2 = "2" | |
| var value3 = 3.0 | |
| var value4 = 4.0 | |
| println(java.lang.String.format("%d, %s, %6f : %3f", value1, value2, value3, value4)) |
bohdanszymanik
/ sample1.fsx
Created
June 24, 2020 18:48
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (* | |
| <?xml version="1.0" encoding="UTF-8"?> | |
| <Questionnaire type="referee"> | |
| <Section id="referee" label="Your details"> | |
| <Section id="identity" label="Identity"> | |
| <Input id="name" label="Referee name"> | |
| <Input id="firstName" label="First name">Douglas</Input> | |
| <Input id="middleName" label="Middle name">Neil</Input> | |
| <Input id="surname" label="Surname">Adams</Input> | |
| </Input> |
bohdanszymanik
/ LiquorLicenceRegisterAddressLookup.R
Last active
May 7, 2021 04:04
nominatum openstreetmap address lookup for the liquor licencing register
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ################################################################################## | |
| # Import liquor licencing data, geocode and plot | |
| # Plot on a NZ map | |
| # Show a regional view - some demographics eg population density at SA2 | |
| # Import the public NZ Police aggregated crime data | |
| # Look at crime harm regional cf liquor outlet distribution | |
| # | |
| library(readxl) | |
| library(rgdal) |
bohdanszymanik
/ st_join_example.R
Created
May 19, 2021 20:46
Expanded example of joining spatial datasets, counting intersecting points across shapes, and using as an aesthetic
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # refer to https://gis.stackexchange.com/questions/110117/counting-number-of-points-in-polygon-using-r/270479#270479 | |
| # for original code example | |
| # Load libraries ---------------------------------------------------------- | |
| library(raster) | |
| library(sf) | |
| library(dplyr) | |
| # Get sample data --------------------------------------------------------- |
bohdanszymanik
/ dateChange.R
Created
May 24, 2021 02:30
Random date formatting example in R so I don't forget how it's done
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(readr) | |
| library(stringr) | |
| library(stringi) | |
| em <- read_csv("C:/somewhere/some.csv") | |
| em$Time <- paste( | |
| paste(str_sub(em$`Date & Time`, 7, 10), str_sub(em$`Date & Time`, 4, 5), str_sub(em$`Date & Time`, 1, 2), sep="/"), | |
| str_sub(em$`Date & Time`, -8), sep = " " | |
| ) |
bohdanszymanik
/ mappingWithGgplot.R
Created
May 24, 2021 02:35
Using ggplot to display a map plot with an underlying tiles
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(readr) | |
| library(ggmap) | |
| library(ggplot2) | |
| library(readxl) | |
| library(plotly) | |
| library(here) | |
| library(httr) |
bohdanszymanik
/ countInAreas.R
Last active
July 19, 2021 22:50
R sample to count locations in areas
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ################################################################################## | |
| # Import school locations | |
| # Import some areas | |
| # Join counts | |
| # write out | |
| library(readxl) | |
| library(writexl) | |
| library(sf) |
bohdanszymanik
/ oldVersion4RImportsForGraph.R
Last active
November 16, 2022 21:55
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| tcltkUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/tcltk2_1.2-11.zip" | |
| install.packages(tcltkUrl, repos=NULL, type="binary") | |
| # tkplotUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/tcltk2_1.2-11.zip" | |
| # install.packages(tkplotUrl, repos=NULL, type="binary") | |
| # library(tkplot) | |
| knitrUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/knitr_1.38.zip" | |
| install.packages(knitrUrl, repos=NULL, type="binary") |
bohdanszymanik
/ sampleigraph.R
Created
November 27, 2022 01:39
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| remove.packages("rlang") | |
| remove.packages("tibble") | |
| rlangUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/rlang_1.0.2.zip" | |
| install.packages(rlangUrl, repos=NULL, type="binary") | |
| tcltkUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/tcltk2_1.2-11.zip" | |
| install.packages(tcltkUrl, repos=NULL, type="binary") | |
| knitrUrl <- "https://cran.r-project.org/bin/windows/contrib/4.0/knitr_1.38.zip" |