Skip to content

Instantly share code, notes, and snippets.

@ratnanil
ratnanil / decktape-quarto-recursive.sh
Created September 5, 2025 12:38
A small script to export all revealjs slidedecks in qmd files to pdf. Requires quarto preview, a port number and export path
#!/bin/bash
# Convert .qmd file paths to localhost URLs with .html extension
# Check if port and export path are provided as arguments
if [ $# -lt 2 ]; then
echo "Usage: $0 <port> <export_path>"
exit 1
fi
@ratnanil
ratnanil / json-to-sf
Last active May 30, 2024 06:57
Import Google Timeline / Location History
# 1. go to https://takeout.google.com/
# 2. Deselect all "Products"
# 3. Select only the following product: Location History (Timeline)
# 4. Follow the other steps to get a json export of your Location history
# 5. Download and extract the data in your RStudio Project folder
# 6. Follow the script below
library(sf)
@ratnanil
ratnanil / get_data.R
Last active April 4, 2024 23:05
Create Fishnet from swissAlti3D URLs
library(readr)
library(tidyr)
library(sf)
library(dplyr)
library(purrr)
library(glue)
ullr2poly <- function(xmin, ymin, xmax, ymax){
c(1,2,1,4,3,4,3,2,1,2) |>
sapply(\(x)c(xmin, ymin, xmax, ymax)[x]) |>
matrix(ncol = 2, byrow = TRUE) |>
# from here:
# https://github.com/rstudio/gt/blob/ff878e10d21a3ba897c5f99801b796da8fb637fa/R/helpers.R#L2496-L2536
adjust_luminance <- function(colors, steps) {
stopifnot(steps < 2, steps > -2)
rgb_matrix <- t(grDevices::col2rgb(colors, alpha = TRUE)) / 255
alpha <- rgb_matrix[, "alpha"]
luv_matrix <-
grDevices::convertColor(rgb_matrix[, 1:3], "sRGB", "Luv")
h <- atan2(luv_matrix[, "v"], luv_matrix[, "u"]) * 180 / pi
c <- sqrt(luv_matrix[, "u"]^2 + luv_matrix[, "v"]^2)
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.