matt-dray

# You can combine:
#   * {cli} for link-clicking in the console:
#       https://www.rostrum.blog/posts/2023-09-17-choosethis/
#   * the ability to 'monetise' your R packages:
#      https://www.rostrum.blog/posts/2023-08-01-monetize/

add_one <- function(x) {
  result <- x + 1
  cli::cli_text(
    "The answer, ", result, 

matt-dray

# Regarding this toot: https://fosstodon.org/@coolbutuseless/111134523140682110
# Referring to this guidance: https://cran.r-project.org/web/packages/policies.html
# Using this deep-fry tech: https://www.rostrum.blog/posts/2021-11-07-deepfry/

library(magick)
library(spongebob)

fry <- function(
    img_path, emoji_path,
    text_top, text_bottom,

matt-dray

# Freeing Brian Bilston's spreadsheet-based 'Cells' poem
# https://x.com/brian_bilston/status/1704061266979959099?s=46&t=QpOVBfS2sVIbcjn3ZLif3g

# Assuming the poem is saved to the file cells.xlsx
cells <- tidyxl::xlsx_cells("cells.xlsx", include_blank_cells = FALSE)
txt <- cells$character
txt_len <- length(txt)
author <- paste0("-", txt[txt_len])
txt <- txt[-txt_len]
lines <- split(txt, ceiling(seq_along(txt) / max(cells$col))) |> append(author)

matt-dray

x <- data.frame(
  col_a = c("A", "B", "A", "C", "A", "D", "B", "C"),
  col_b = c(1, 2, 1, 3, 9, 4, 2, 9)
)

x

#   col_a col_b
# 1     A     1
# 2     B     2

matt-dray

posts <- 
  list.files("posts", pattern = ".qmd", recursive = TRUE, full.names = TRUE)

get_categories <- function(post_path, ignore_rx = "resources") {
  
  post_lines <- readLines(post_path, warn = FALSE)
  
  cats_start <- which(post_lines == "categories:") + 1
  cats_end <- which(post_lines == "---")[2] - 1
  

matt-dray

redirect_to <- paste0("/", list.dirs("posts", recursive = FALSE))

date_rx <- "\\d{4}-\\d{2}-\\d{2}"

date_portion <- regexpr(date_rx, redirect_to) |> 
  regmatches(redirect_to, m = _) |> 
  gsub("-", "/", x = _)

name_portion <- gsub(paste0("posts/", date_rx, "-"), "", redirect_to)

matt-dray

paths <- list.dirs("posts", recursive = FALSE)

for (i in paths) {
  
  from_dir <- i
  
  date_rx <- "\\d{4}-\\d{2}-\\d{2}"
  
  dates <- regexpr(date_rx, basename(i)) |> 
    regmatches(basename(i), m = _) |> 

matt-dray

x <- readLines("~/Desktop/leaflet-map.txt")

popup_html <- stringr::str_split_1(x, "\",\"")

lmb_simple <- tibble::tibble(
  status_id = stringr::str_extract(popup_html, "\\d{19}"),
  lat = stringr::str_extract(popup_html, "(?<=📍 )5\\d{1}\\.\\d{0,4}(?=, )"),
  lon = stringr::str_extract(popup_html, "(?<=\\d, )(-)?\\d\\.\\d{0,4}(?=<br>📮)"),
  osm_url = glue::glue("https://www.openstreetmap.org/#map=17/{lat}/{lon}/"),
  media_url = stringr::str_extract(popup_html, "(?<=img src=\\')http://pbs\\.twimg\\.com/media/.*\\.jpg(?=\\' width)")

matt-dray

library(ggplot2)
library(ggthemes)
library(extrafont)
font_import()  # might take a minute
loadfonts(device = "win")

df <- data.frame(
  Time    = 1:3,
  Berthas = 2:0,
  Sadness = 0:2

matt-dray

 git log --oneline
 git reset dc871db
 git log --oneline
 git reset --soft HEAD~;
 git status
 git rm posts/2020-05-16-postcode-pandemonium/Data/NSPL21_FEB_2023_UK.csv
 git status
 git add .
 git commit -m "Fix back to 2020-05-16 postcodes, rename folder dates, correct punctuation post, rebuild site"
 git push origin md-fix-latest