Skip to content

Instantly share code, notes, and snippets.

View jrosell's full-sized avatar

Jordi Rosell jrosell

115 followers · 784 following
View GitHub Profile
@jrosell
jrosell / best.data.table.formatting.R
Last active March 5, 2026 08:39
# Reference: By Josh Goldstein from Dirk Eddelbuettel on https://mastodon.social/@eddelbuettel/116132645744985793
library(data.table)
cw <- data.table(ChickWeight)
# fmt: skip
cw21 <- (
cw[Time %in% c(0, 21)]
[, Weight := weight]
[, Group := factor(paste0("Diet_", Diet))]
@jrosell
jrosell / sse.R
Created March 2, 2026 20:43
HTTP streaming and Server-Sent Events in R with nanonext
# pak::pak("r-lib/nanonext")
library(nanonext)
conns <- list()
handlers <- list(
handler_stream("/stream",
on_request = function(conn, req) {
conn$set_header("Content-Type", "application/x-ndjson")
conns[[as.character(conn$id)]] <<- conn
conn$send('{"status":"connected"}\n')
@jrosell
jrosell / dictionaries.md
Last active February 12, 2026 13:53
Do you want to merging R objects like dictionaries in R? It seems like using base vectors are the fastest of the explored options to merge like dictionaries in R. 15 times faster than purrr::list_modify, fastmap or collections::dict
title format
Merging R objects like dictionaries in R
html

Let's explore how to merge lists, enviroments or vectors like dictionaries in R.

pak::pak(c(
  "purrr",
@jrosell
jrosell / image-embeddings.qmd
Last active February 3, 2026 16:44
Create and search image embeddings using torch, mobilenet v3, rchroma and R
---
title: "Create and search image embeddings using torch, mobilenet v3, rchroma and R"
---
Prepare torch, and mobilenet v3 embeddings.
```{r}
if (!rlang::is_installed("torch")) {
# https://torch.mlverse.org/docs/articles/installation#pre-built
options(timeout = 90000)
@jrosell
jrosell / r.json
Created January 9, 2026 09:02
R snippets for code autocompletion. Copy-paste-modify cases are good snippets candidates.
{
"lib": {
"prefix": "lib",
"body": "library(${1:package})",
"description": "Attach an R package"
},
"src": {
"prefix": "src",
"body": "source(\"${1:file.R}\")",
"description": "Source an R file"
@jrosell
jrosell / reduce-loop-using-pipes.R
Last active December 19, 2025 12:31
Reduce loops using purrr base R pipe. Inspired by https://masalmon.eu/2023/07/26/reduce/
library(purrr)
# The intial information
elements <- tibble::tribble(
~key , ~values ,
"Barbie" , "shoes" ,
"Oppenheimer" , "history"
)
# Aditional values we want to proces
@jrosell
jrosell / run.ipynb
Created October 17, 2025 12:05
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@jrosell
jrosell / xymatch.R
Last active October 13, 2025 14:36
library(rextendr)
library(mirai)
rextendr::rust_source(
file = "rust/xymatch_loop.rs",
module = "xymatch_loop",
profile = "release"
)
rextendr::rust_source(
file = "rust/xymatch_binary.rs",
module = "xymatch_binary",
@jrosell
jrosell / S7-scalar-double-add.R
Created October 8, 2025 10:26
library(S7)
ScalarDouble <- new_class("ScalarDouble",
properties = list(value = class_double),
constructor = function(value) {
stopifnot(is.double(value), length(value) == 1)
new_object(ScalarDouble, value = value)
}
)
@jrosell
jrosell / compute-risk-ratio-risk-difference.R
Last active September 26, 2025 07:36
Methods for computing Risk Ratio and Risk Difference.
stopifnot(requireNamespace("rlang"))
rlang::check_installed("pak")
pkgs <- rlang::chr(
"tidymodels",
"marginaleffects",
"parameters",
"modelbased",
"dplyr",
"stringr",
"tibble",