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

matt-dray

`::`(dplyr, `%>%`)(mtcars, `::`(dplyr, select)(., cyl))

# Challenge for the reader: isn't the bracket a function too...?

matt-dray

# Extract and combine tables from multiple Word files

# This script creates some dummy docx files in temporary subfolders to mimic a 
# user's filesystem. It then uses docxtractr::read_docx() to extract all the
# tables, and combines them with rbind().

# A follow-up to my blogpost:
#   https://www.rostrum.blog/2023/06/07/rectangular-officer/

# Attach packages (all are available from CRAN)

matt-dray

# Functions building on the {officer} package:
#   https://davidgohel.github.io/officer/

# You can read more about these functions in a blog post:
#   https://www.rostrum.blog/2023/06/07/rectangular-officer/

# There are other solutions. You can also try {docxtractr} by Bob Rudis
# (on CRAN), which doesn't depend on {officer}, or {officerExtras} by Eli
# Pousson (on GitHub).