Skip to content

Instantly share code, notes, and snippets.

View jrosell's full-sized avatar

Jordi Rosell jrosell

95 followers · 572 following
View GitHub Profile
@jrosell
jrosell / api.domain.com.conf
Last active March 27, 2025 17:41
Example of a JavaScript fetching country code from API. I used a apache2 and ubuntu service for an R API using plumber and ipinfo.io service.
<VirtualHost *:80>
ServerAdmin info@domain.com
ServerName api.domain.com
ProxyPass / http://127.0.0.1:8000/
ProxyPassReverse / http://127.0.0.1:8000/
</VirtualHost>
@jrosell
jrosell / country_from_coordinates_api.R
Created March 27, 2025 12:26
An example service using R API to obtain the country from latitude and longitude coordinates.
# plumber::plumb("country_from_coordinates_api.R")$run(port = 8000)
library(plumber)
library(httr2)
library(rlang)
#* @serializer html
#* @get /
function() {
html_content <- '<!DOCTYPE html>
@jrosell
jrosell / clickstream_data_analysis.R
Last active March 27, 2025 09:58
An example of data model to perform clickstream data analysis in R for an ecommerce website or app.
``` r
suppressPackageStartupMessages({
library(dplyr)
library(tidyr)
})
click_data <- tibble(
click_id = c("u1", "u1", "u1", "u1", "u1", "u1", "u1", "u1", "u1", "u2", "u2", "u2", "u3", "u3", "u2"),
@jrosell
jrosell / install_and_load.R
Last active January 3, 2025 20:29
This is how I like to check and load packages in my R scripts, including non-CRAN packages. It requires {rlang} and {pak} packages.
if (!requireNamespace('pak')) stop("Please, run install.packages('pak')")
pkgs <- c(
rlang = "rlang",
tidyverse = "tidyverse/tidyverse",
tidymodels = "tidymodels/tidymodels",
jrrosell = "jrosell/jrrosell@main"
)
pak::pak(pkgs)
suppressPackageStartupMessages(purrr::walk(names(pkgs), \(p) {
library(p, character.only = TRUE, quietly = TRUE)
@jrosell
jrosell / minimal_character_positions.R
Last active December 17, 2024 14:51
# Level 2
minimal_character_positions <- \(s) {
max_len <- max(nchar(s))
for (i in seq_len(max_len)) {
for (indices in combn(seq_len(max_len), i, simplify = FALSE)) {
char_vectors <-
purrr::map(s, \(str, idx = indices) {
purrr::map_chr(idx, \(ii) {
if (ii <= nchar(str)) substr(str, ii, ii) else NA
})
@jrosell
jrosell / ollama.R
Created December 13, 2024 16:39
library(tidychatmodels)
ollama_llama31 <-
create_chat('ollama') |>
add_model('llama3.1')
chat <-
ollama_llama31 |>
add_message('What is love? IN 10 WORDS.') |>
perform_chat()
@jrosell
jrosell / why-f1-score-dataviz.R
Last active December 13, 2024 10:05
# Thanks to @koaning for pointing out this visualization in Stack Overflow https://stackoverflow.com/a/49535509/481463 in this video https://www.youtube.com/watch?v=3M2Gmuh5mtI
library(tidyverse)
library(rayshader)
library(viridis)
df <-
expand_grid(
precision = 1:100 / 100,
recall = 1:100 / 100,
@jrosell
jrosell / t-test-animation.R
Last active March 1, 2025 14:38
library(magick)
library(purrr)
library(ggplot2)
# Define variables
FRAMES <- 30
MEAN1 <- 0 # Mean of the first group
MEAN2 <- 0.2 # Mean of the second group
FROM <- 2
TO <- 1500
@jrosell
jrosell / shortest_route_distance.R
Last active November 7, 2024 23:17
# @jrosell: Calculate shortest distance to fuel station from all interest points (useful for feature engineering!)
# @jrosell: Use setNames to be sure distance works.
# @jrosell: Use rowwise() |> group_split() |> map() |> list_rbind() to be able to get ETA with .progress = TRUE
# Original source by @milos-agathon: https://www.youtube.com/watch?v=jmImC0v6qmU
# ==============================================================================
# Preparations
libs <- c(
"tidyverse", # Data wrangling and visualization
@jrosell
jrosell / cumsum_cut.R
Created November 1, 2024 01:49
library(testthat)
expected <- c(0L, 8L, 15L, 0L, 5L, 9L, 0L, 2L)
cumsum_cut_base <- function(x, cuts = NULL) {
g <- rep(0, length(x))
if (!is.null(cuts)) g[cuts] <- 1
unlist(unname(lapply(split(x, cumsum(g)), \(.x) head(c(0, cumsum(.x)), -1))))
}
cumsum_cut_rlang <- function(x, cuts) {