The experimental graphical framework vellum knows where grobs land before they are actually drawn to a device. One interesting side effect is that one can actually lint graphics without drawing them! #Rstats
📦: github.com/r-vellum/vellum
![R code that shows the linter implemented in vellum:
vl_scene(4, 2, dpi = 96, bg = "white") |>
draw(text_grob(
"n = 120",
x = 0.1,
y = 0.9,
gp = vl_gpar(fontsize = 2.5),
name = "n_label"
)) |>
draw(points_grob(2.4, 0.5, name = "stray_point")) |>
draw(text_grob(
"watermark",
gp = vl_gpar(fontsize = 22, col = "#F2F2F2"),
name = "watermark"
)) |>
vl_lint()
#> 3 lint findings (3 warnings):
#> ✖ [low_contrast] watermark: contrast 1.4:1 against its backdrop - below 3:1
#> ✖ [offscreen] stray_point: drawn entirely outside the page - check the
#> coordinates or the scale
#> ✖ [tiny_text] n_label: 3.3 px tall - below the 7 px legibility floor](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:sv2aevfp7olu6ch7wq2nmgmi/bafkreidusmjdogeqrttxazp5kv263kmzmyb5g6wmwvxthbrg5lalwlv37u)
David Schoch
@schochastics.net
577 followers 136 following 32 posts
Data Scientist/DevOps Engineer at cynkra | #Rstats enthusiast mr.schochastics.net
![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)))](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:sv2aevfp7olu6ch7wq2nmgmi/bafkreibtnhwlphoe6mtwxdq7hpisi4zj2nss3lyorrqcwo7lvzzvnxunuy)
