MichaelChirico’s gists

MichaelChirico / recommended_partial_issues.R

Last active April 25, 2024 06:43

Check all Recommended packages for partial matching issues

	setwd(tempdir())
	pmatchRe = "partial( argument)? match"

	write_strict_profile = function(path = ".Rprofile") {
	writeLines(con=path, c(
	"options(warnPartialMatchArgs=TRUE, warnPartialMatchAttr=TRUE, warnPartialMatchDollar=TRUE)",
	sprintf("globalCallingHandlers(warning=function(c) if (grepl('%s', conditionMessage(c))) stop(c) else warning(c))", pmatchRe)
	))
	}
	clone_cran_mirror = \(pkg) system2("git", c("clone", "-q", sprintf("https://github.com/cran/%s.git", pkg)))

MichaelChirico / taxes2023.R

Last active April 13, 2024 19:28

Tax calculation functions for 2023

	medicare_tax = function(medi_income, filing_status="joint") {
	addl_floor = switch(filing_status, joint=250000, mfs=125000, single=200000)
	.0145medi_income + pmax(0, .009(medi_income-addl_floor))
	}

	social_security_tax = function(income) .062 * pmin(income, 160200)

	tax_with_deductible_brackets = function(income, deductible, bracket_rates, bracket_mins) {
	sum(pmax(0, diff(bracket_rates) * (income - deductible - bracket_mins)))
	}

MichaelChirico / select_left.py

Last active March 31, 2024 18:02

Select from 'left' file to resolve conflicts

	def select_left(file):
	with open(file) as f:
	contents=f.read()

	lines = contents.split('\n')

	n_conflicts = sum([l.startswith('<<<<') for l in lines])

	keep=True
	outfile=[]

MichaelChirico / cran_readchar_args.R

Created January 26, 2024 15:24

readChar() usage on CRAN

	library(jsonlite)
	library(data.table)
	library(lintr)

	read_page <- function(page) {
	tmp <- tempfile()
	on.exit(unlink(tmp))
	system2("curl",
	c("--location", "--request",
	"GET", sprintf("'https://api.github.com/search/code?q=readChar+org:cran+language:R+-path:.Rd&per_page=100&page=%d'", page),

MichaelChirico / gha_results.R

Last active November 17, 2023 16:47

GHA results

	library(jsonlite)
	library(data.table)

	headers <- shQuote(c(
	"-H", "Accept: application/vnd.github+json",
	"-H", sprintf("Authorization: Bearer %s", Sys.getenv("GITHUB_PAT")),
	"-H", "X-GitHub-Api-Version: 2022-11-28"
	))

	url_fmt <- "https://api.github.com/repos/r-lib/lintr/actions/runs?per_page=%d&page=%d"

MichaelChirico / gist:7706fe44cf29b5e12007bf4e1c1f73ce

Created November 14, 2023 00:49

grep() slower than which(grepl())??

	library(microbenchmark)
	N = 1e4
	v = sample(letters, N, TRUE)

	microbenchmark(times = 200L, grep("a", v), which(grepl("a", v)), grep("[a-m]", v), which(grepl("[a-m]", v)), grep("[a-z]", v), which(grepl("[a-z]", v)))
	# Unit: microseconds
	# expr min lq mean median uq max neval cld
	# grep("a", v) 630.561 640.4110 670.5257 655.4915 680.6115 866.132 200 b
	# which(grepl("a", v)) 598.802 609.5220 637.0542 621.0965 652.9120 839.231 200 a
	# grep("[a-m]", v) 692.601 708.4215 735.6788 721.3065 744.6365 1207.722 200 d

MichaelChirico / explicit_return_linter.R

Created November 10, 2023 18:18

explicit_return_linter XPath

	allowed_functions <- c(
	# Normal calls
	"return", "stop", "warning", "message", "stopifnot", "q", "quit",
	"invokeRestart", "tryInvokeRestart",

	# Normal calls from non-default libraries
	"LOG", "abort",

	# tests in the RUnit framework are functions ending with a call to one
	# of the below. would rather users just use a different framework

MichaelChirico / test-explicit_return_linter.R

Created November 10, 2023 18:13

explicit_return_linter tests

	test_that("explicit_return_linter works in simple function", {
	lines <- c(
	"foo <- function(bar) {",
	" return(bar)",
	"}"
	)
	expect_lint(lines, NULL, explicit_return_linter())
	})

	test_that("explicit_return_linter works for using stop() instead of returning", {

MichaelChirico / marriage_tax_2022.R

Created October 15, 2023 05:33

Marriage tax 2022

	library(data.table)
	library(rvest)
	library(xml2)

	brackets = "https://taxfoundation.org/data/all/federal/2022-tax-brackets/" \|>
	read_html() \|>
	xml_find_all("//table[contains(caption/text(), '2022 Federal Income')]") \|>
	html_table()

	brackets = as.data.table(brackets[[1L]])[-.N]

MichaelChirico / nyt_xword.R

Last active September 14, 2023 06:30

EDA on my New York Times Crossword data

	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")]

Michael Chirico MichaelChirico