thoughtfulbloke

library(readr)
library(dplyr)
library(tidyr)
library(ggplot2)
library(lubridate)
library(RcppRoll)
source("~/theme.R")

datafiles <- list.files(pattern="csv$")
# remove the older provisional files that I have the directory

thoughtfulbloke

library(readr)
library(dplyr)
library(tidyr)
library(ggplot2)
library(ggthemes)
source("~/theme.R")
WVS <- read_csv("~/Downloads/WVS_Cross-National_Wave_7_csv_v6_0.csv")
shorter <- WVS |> 
  filter(B_COUNTRY_ALPHA %in% c("DEU", "RUS","IND", "USA", "KOR", "NZL")) |> 
  select(B_COUNTRY_ALPHA, Q7:Q17)

thoughtfulbloke

library(ggplot2)
library(maps)
library(dplyr)

# while the position data in the maps package
# is very basic, that makes it simple to transform
nz_map <- map_data("nz") 

nz_anti <- nz_map %>%
  mutate(

thoughtfulbloke

"Week_Ending","Border_Cases","Community_Cases","Deaths"
2020-02-23,0,0,0
2020-03-01,1,0,0
2020-03-08,4,2,0
2020-03-15,3,0,0
2020-03-22,56,22,0
2020-03-29,273,180,1
2020-04-05,160,350,0
2020-04-12,52,232,4
2020-04-19,16,81,7

thoughtfulbloke

library(magick)
library(exiftoolr)

# Hard-coded folder path
folder <- "~/Desktop/photos"

# Function to process images
process_images <- function(folder) {
  # Create the "texted" subfolder if it doesn't exist
texted_folder <- file.path(folder, "texted")

thoughtfulbloke

library(shiny)
library(magick)

ui <- fluidPage(
  titlePanel("Image Upload and Text Overlay"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", "Choose an Image File",
                accept = c('image/png', 'image/jpeg')),

thoughtfulbloke

library(dplyr)
asLines <- readLines("d12.txt")
height <- length(asLines)
width <- nchar(asLines[1])
chars <- strsplit(paste(asLines, collapse = ""), "")[[1]]

aCropMatrix <- matrix(chars, nrow = height, byrow = TRUE)
aFieldMatrix <- matrix(1:length(chars), nrow = height, byrow = TRUE)
priorFieldMatrix <- matrix(rep(1, length(chars)), nrow = height, byrow = TRUE)
while (!identical(priorFieldMatrix, aFieldMatrix)) {

thoughtfulbloke

library(gtools)
library(stringr)
library(dplyr)
library(tidyr)
d7 <- readLines("day07.txt")
#assumes you kept the resut of part1 to save work
d7p1 <- as.numeric(readLines("d7p1result.txt"))
p2data <- d7[d7p1 == 0]
p2sums <- as.numeric(gsub(":.*","",p2data))
p2input <- gsub(".*: ","",p2data)

thoughtfulbloke

library(rvest)
library(dplyr)
library(RcppRoll)
library(tidygeocoder)
library(maps)
library(mapdata)
library(ggplot2)
library(viridis)
library(patchwork)
library(ggtext)

thoughtfulbloke