Michael Chirico MichaelChirico
MichaelChirico
/ nyt_xword.R
Last active
September 14, 2023 06:30
EDA on my New York Times Crossword data
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(data.table) | |
| # output from https://github.com/mattdodge/nyt-crossword-stats | |
| # python fetch_puzzle_stats.py -u "..." -p "..." -s 1993-11-21 | |
| DT = fread("data.csv") | |
| # Sunday is a bit of its own thing, so put it last | |
| DT[, day := factor(day, levels = c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun"))] | |
| DT[, iso_week := format(date, "%G-%V")] |
MichaelChirico
/ check_examples.R
Created
August 1, 2023 16:37
Run package examples, allowing for possibly multiple failures
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
| #' Run a package's examples, allowing tolerance for failures | |
| #' | |
| #' @noRd | |
| .RunExamples <- function(man_dir, timeout = 60) { | |
| # It appears the result order is not stable; sort to ensure this | |
| rd_files <- sort(dir(man_dir, full.names = TRUE, pattern = "\\.[Rr]d$")) | |
| if (length(rd_files) == 0L) { | |
| cat("No examples to run.\n") | |
| return(list()) |
MichaelChirico
/ cmf_2023_citations.R
Created
July 7, 2023 16:15
Citations count in CA Math Framework
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
| # As downloaded 2023-07-06 | |
| library(data.table) | |
| library(xml2) | |
| # NB: a .docx is "just" a .zip directory | |
| unzip("mathfwappendixbsbe.docx", exdir=tempdir()) | |
| doc_xml = read_xml(file.path(tempdir(), "word", "document.xml")) |
MichaelChirico
/ api_output.xml
Created
June 22, 2023 18:38
XML output from SF Transit API with puzzling behavior
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="iso-8859-1"?> | |
| <siri:Siri xsi:schemaLocation="http://www.siri.org.uk/siri http://www.kizoom.com/standards/netex/schema/0.99.1/xsd/NeTEx_siri.xsd" | |
| xmlns:siri="http://www.siri.org.uk/siri" | |
| xmlns="http://www.netex.org.uk/netex" | |
| xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" | |
| xmlns:gml="http://www.opengis.net/gml" version="1.0"> | |
| <siri:ServiceDelivery> | |
| <siri:ResponseTimestamp>2023-06-21T23:27:30-07:00</siri:ResponseTimestamp> | |
| <DataObjectDelivery> |
MichaelChirico
/ gist:0fb318392d1b18d6a966e4785d49cac9
Last active
October 29, 2022 21:29
Scraping & munging to answer: Has any team before the 2022 Phillies won all of their playoff game 1s on the road?
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
| # SOURCE: retrosheet.org - https://www.retrosheet.org/gamelogs/index.html | |
| library(withr) | |
| library(data.table) | |
| # one file for the full history of each round | |
| playoff_logs <- c( | |
| wild_card = "https://www.retrosheet.org/gamelogs/glwc.zip", | |
| lds = "https://www.retrosheet.org/gamelogs/gldv.zip", | |
| lcs = "https://www.retrosheet.org/gamelogs/gllc.zip", | |
| world_series = "https://www.retrosheet.org/gamelogs/glws.zip" |
MichaelChirico
/ get_r_translation_status.R
Created
April 26, 2022 07:12
Execute a run of snapshot summaries for translations, then visualize
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(withr) | |
| library(data.table) | |
| r_dir <- "~/github/r-svn" | |
| all_commits <- with_dir(r_dir, system('git log --pretty="format:%H %b"', intern=TRUE)) | |
| all_commits <- all_commits[nzchar(all_commits)] | |
| hashes <- substr(grep("^[0-9a-f]{40} ", all_commits, value=TRUE), 1, 40) | |
| trunk_hash <- head(hashes, 1L) | |
| # grep("trunk@33000", all_commits, value = TRUE) |
MichaelChirico
/ get_r_translation_status_for_revision.R
Created
April 26, 2022 07:11
Summarize the state of translation for a snapshot of r-devel
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
| #!/usr/local/bin/Rscript | |
| library(potools) | |
| suppressPackageStartupMessages(library(data.table)) | |
| script_wd = setwd("~/github/r-svn") | |
| GIT_COMMIT = if (interactive()) readline('git commit: ') else commandArgs(TRUE) | |
| setwd('src/library') | |
| get_po_messages <- potools:::get_po_messages |
MichaelChirico
/ r_translatable_messages.R
Created
July 6, 2021 09:57
Make a barplot showing trend of R translatable messages over time
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(data.table) | |
| # Export the table on page 2 to .csv: | |
| # https://docs.google.com/document/d/1XbfOf3CLVb2UFyUZGJoVLkBUDZ6Hs3APCDW8UzuOvZk | |
| DT=fread('~/Desktop/r-translations.csv') | |
| DT[ , { | |
| par(cex = 2) | |
| y = `# Messages` | |
| xx = barplot(y, names.arg = `R Version`, space=0, col='#2268bc', yaxt='n', main='Translatable messages by R version', las=2L) | |
| text(xx[1L], y[1L]/2, srt=90, prettyNum(y[1L], big.mark = ','), col='white') | |
| text(xx[.N], y[.N]/2, srt=90, prettyNum(y[.N], big.mark = ','), col='white') |
MichaelChirico
/ dt_usage_revdeps.R
Created
March 15, 2021 06:28
Count usages of data.table functions in Importing revdeps
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
| #!/usr/local/bin/Rscript | |
| library(data.table) | |
| imports_dt <- tools::dependsOnPkgs( | |
| "data.table", "Imports", | |
| recursive = TRUE, | |
| installed = available.packages() | |
| ) | |
| tar_dir <- "/media/michael/69913553-793b-4435-ac82-0e7df8e34b9f/cran-mirror/src/contrib" |
MichaelChirico
/ sg_mrt_per_district.R
Created
March 5, 2021 08:31
Count the number of MRT/LRT stations in each postal district
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(sp) | |
| library(rgdal) | |
| # better to download & read the files programmatically, but something | |
| # funky is happening on that route, not bothering to debug too deeply. | |
| # for reproducibility: | |
| # (1) Click Download at the URL | |
| # (2) Unzip the file; it contains two more zip directories, one KML and one SHP | |
| # (3) Unzip the .shp zip to ~/Downloads/mrt |