David Schoch

@schochastics.net

566 Followers 136 Following

Data Scientist/DevOps Engineer at cynkra | #Rstats enthusiast https://mr.schochastics.net

Comparison of printing methods in igraph. On the top the old style and on the bottom the new method using cli

Output of dex_sentence function.
"Elegant shellder uses wrap greedily"
"Well-documented golbat uses lovely kiss sedately"
"Old-fashioned gyarados uses disable cautiously"
"Impressionable gastly uses lovely kiss scarily"
"Tidy graveler uses amnesia questionably"

$A simple plumber api that reads and writes parquet files: # plumber.R library(plumber) library(nanoparquet) # To read Parquet files #* @apiTitle Parquet File Upload API #* Upload a Parquet file #* @param req:file The request object #* @post /upload_parquet function(req) { # Access the uploaded file from the request multipart <- mime::parse_multipart(req) fp <- multipart$file$datapath data <- nanoparquet::read_parquet(fp) resp <- data.frame( status = "success", n_rows = nrow(data), n_cols = ncol(data), columns = names(data) ) tmp <- tempfile(fileext = "parquet") nanoparquet::write_parquet(resp, tmp) on.exit(unlink(tmp)) readBin(tmp, "raw", n = file.info(tmp)$size) }$

screenshot of a document that contains links processed by url-peek

Hex sticker of the R package rchroma showing a stylized icon of a database in chroma colors

A dashboard showing stats on my GitHub usage in 2024
Total Contributions: 1155
Repositories created: 37
Issues opened: 66
Pull requests: 36
Stargazed: 22

longest streak:79 days
longest gap: 6 days
active days: 239

Weekday: most contributions where made on a Monday (least on Saturday).
Months: Most contributions were made in February (least in May)

code can be found here: https://github.com/schochastics/adventofcode/blob/main/2024/day07.R

Rstats solution for Advent of code day 4. Code can be found here: https://github.com/schochastics/adventofcode/blob/main/2024/day04.R

$AdventOfCode Day 03 Solution with RStats input <- paste0(readLines("input03.txt"), collapse = "") mul <- `*` mul_str <- unlist(stringr::str_extract_all(input, "mul\$[0-9]+,[0-9]+\$")) sum(vapply(mul_str, $x) eval(parse(text = x)), numeric(1))) input <- paste0("do()", input, "don't()") matches <- paste0(stringr::str_extract_all(input, "(?<=do\\(\$)(.*?)(?=don't\$\$)")[[1]], collapse = "") mul_str <- unlist(stringr::str_extract_all(matches, "mul\$[0-9]+,[0-9]+\$")) sum(vapply(mul_str, \(x) eval(parse(text = x)), numeric(1)))$