Mwavu Kennedy

@mwavu.com

233 Followers 147 Following

i write R for fun & profit. neovim, btw. arch, btw. site: https://mwavu.com

the "car sales man slaps roof of car" meme.

* slaps {tidyverse} *
this bad boy can fit so many R packages in it

template of the meme "you guys are getting paid?"

~/Projects ❯ R

R version 4.5.3 (2026-03-11) -- "Reassured Reassurer"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

Natural language support but running in an English locale

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> install.packages("tidyverse")

$page <- function(...) { content <- tag_list( doctype(), tags$html(), tags$head( tags$meta( charset = "utf-8" ) ), tags$body( tags$main( class = "main", ..., ), ), ) render(content) } home_ui <- function() { content <- tags$div( tags$h3("hello, world"), tags$p("trailing commas, yeeey!"), tags$small("hypertext 1.2.0"), ) page(content) }$

“There are only two kinds of languages: the ones people complain about and the ones nobody uses.”
― Bjarne Stroustrup, The C++ Programming Language

$library(hypertext) content <- tag( tag_name = "calcite-action-bar", layout = "horizontal" ) render(content) #> [1] "<calcite-action-bar layout=\"horizontal\"></calcite-action-bar>"$

library(hypertext)

page <- tags$html(
tags$head(
tags$title("hypertext")
),
tags$body(
tags$h1("Hello"),
tags$p(
class = c("lead", "mb-2"),
"Server-side HTML."
),
tags$input(
type = "text",
placeholder = "enter your nickname"
),
tags$button(
"Click"
)
)
)

render(page)

$library(ambiorix) library(mirai) daemons(2) app <- Ambiorix$new() #' Handle GET at '/now' #' #' @export get_time_now <- function(req, res) { res$json( list(time = Sys.time()) ) } #' Handle GET at '/slow' #' #' @export get_time_slow <- function(req, res) { mirai( .expr = { Sys.sleep(10) res$json( list(time = Sys.time()) ) }, res = res ) } app$get("/now", get_time_now) app$get("/slow", get_time_slow) app$start(port = 5000L)$

# a normal comment
# just vibes, no urgency

# TODO: some plans for later
# future you will hate present you for this

# NOTE: explain edge cases & design choices
# "dear diary, here's why I did this dumb thing"

# WARNING: do not change this part of the code
# touch this and you summon production demons

# FIXME: this is a known bug
# duct tape, but digital

# BUG: another known bug
# congratulations, you found the landmine

# HACK: ugly/temporary workaround
# might need rethinking

# XXX: questionable or dangerous code
# works on my machine, breaks in prod

# OPTIMIZE: potential performance improvements
# could be more efficient

$count_ones <- \(x, ...) { cols <- match.call(expand.dots = FALSE)[["..."]] |> vapply(FUN = deparse, FUN.VALUE = character(1)) colSums(x[cols] == 1) }$

$> f <- \(a = 1, b) { browser() b } > f(a = , 3, 2, b = ) Called from: f(a = , 3, 2, b = ) Browse[1]> match.call() f(a = 3, b = 2)$

$bench::mark( a = { g1 <- input$group1[input$group1 %in% input$group2] |> unique() g2 <- input$group2[input$group2 %in% g1] n <- sapply(g1, \(i) sum(i == g2)) sum(g1 * n) }, b = { sum(input$group1 * table(input$group2)[as.character(input$group1)], na.rm = TRUE) } ) # # A tibble: 2 × 13 # expression min median `itr/sec` mem_alloc `gc/sec` n_itr n_gc total_time # <bch:expr> <bch:tm> <bch:> <dbl> <bch:byt> <dbl> <int> <dbl> <bch:tm> # 1 a 122µs 129µs 7398. 123KB 37.5 3155 16 426ms # 2 b 503µs 522µs 1843. 215KB 8.23 896 4 486ms # # ℹ 4 more variables: result <list>, memory <list>, time <list>, gc <list>$