Eric Leung erictleung

## check_associated_acts.py
#!/usr/bin/env python3

"""
Help audit, remove, and update musician infoboxes.

https://en.wikipedia.org/wiki/Category:Pages_using_infobox_musical_artist_with_associated_acts
"""

import re
import requests

## extract_zoom_urls.sh
#!/usr/bin/env bash

# Description: Extract unique URLs from the plain text output from Zoom chat and
#   save links to new file.
# Usage: bash extract_zoom_urls.sh

# Set path to where Zoom chat is, or `cd` to the directory itself
FILE=meeting_saved_chat.txt

# Get list of unique links shared in Zoom chat

## setup.sh
# Follow instructions here for more:
#   https://exercism.io/cli-walkthrough
# Releases:
#   https://github.com/exercism/cli/releases

# Download and move around
# Change URL as needed for new versions
wget https://github.com/exercism/cli/releases/download/v3.1.0/exercism-3.1.0-linux-x86_64.tar.gz
mkdir bin
mv exercism bin/

## big_book_r_logo.R
# Make logo
library(hexSticker)
library(showtext)

# Add Google Font
font_add_google(name = "Open Sans", family = "Open Sans")
showtext_auto() # Use this font in all rendering

# Picture of book that was quickly screenshot
imgurl <- "~/Downloads/Screenshot 2022-06-13 092720.png"

## smartphone_users.R
library(dplyr)
library(stringr)
library(ggplot2)

d <- rtweet::search_tweets("from:stats_feed", n = 30) %>%
  filter(status_id == "1521871339908263937") %>%
  pull(text) %>%
  str_split("\n") %>%
  as_tibble(.name_repair = "universal") %>%
  rename("data" = "...1") %>%

## example_data.csv

          
            start_date
            stop_date

            
              1999-07-15
              1999-11-15

            
              1999-11-15
              2000-02-15

            
              1999-12-15
              2000-02-15

            
              2000-09-15
              2002-02-15

            
              2002-02-15
              2003-12-15

            
              2002-02-15
              2003-12-15

            
              2003-02-15
              2004-03-15

            
              2004-04-15
              2004-08-15

            
              2004-08-15
              2005-04-15

## data_scientist_search.csv
Category: All categories

Month,Data scientist: (United States)
2004-01,0
2004-02,0
2004-03,0
2004-04,0
2004-05,0
2004-06,0
2004-07,0

## google_trends_shows.R
# https://rstudio-pubs-static.s3.amazonaws.com/155168_61e1f687681d44e4988ce28b7f6ec13b.html
# https://www.leehbi.com/blog/2019-06-04-Google-Trends-with-R

library("dplyr")
library("ggplot2")
library("gtrendsR")
library("extrafont")

loadfonts(device = "win")

## update_git.sh
# Sources:
# - https://www.git-tower.com/learn/git/faq/git-rename-master-to-main/
# - https://gist.github.com/kelynch/9ba595e369c304b560477f3636b41e8a

git checkout master  # Assumes master is default branch
git branch -m master main
git fetch origin
git branch -u origin/main main
git remote set-head origin -a

## xaringan_outliner.R
# Load relevant packages
library(purrr)
library(stringr)
library(glue)


#' Programmatically generate xaringan outline
#'
#' @param file string name of generated xaringan RMarkdown
#' @param ... list of objects containing the structure for the presentation
	#!/usr/bin/env python3

	"""
	Help audit, remove, and update musician infoboxes.

	https://en.wikipedia.org/wiki/Category:Pages_using_infobox_musical_artist_with_associated_acts
	"""

	import re
	import requests
	#!/usr/bin/env bash

	# Description: Extract unique URLs from the plain text output from Zoom chat and
	# save links to new file.
	# Usage: bash extract_zoom_urls.sh

	# Set path to where Zoom chat is, or `cd` to the directory itself
	FILE=meeting_saved_chat.txt

	# Get list of unique links shared in Zoom chat
	# Follow instructions here for more:
	# https://exercism.io/cli-walkthrough
	# Releases:
	# https://github.com/exercism/cli/releases

	# Download and move around
	# Change URL as needed for new versions
	wget https://github.com/exercism/cli/releases/download/v3.1.0/exercism-3.1.0-linux-x86_64.tar.gz
	mkdir bin
	mv exercism bin/
	# Make logo
	library(hexSticker)
	library(showtext)

	# Add Google Font
	font_add_google(name = "Open Sans", family = "Open Sans")
	showtext_auto() # Use this font in all rendering

	# Picture of book that was quickly screenshot
	imgurl <- "~/Downloads/Screenshot 2022-06-13 092720.png"
	library(dplyr)
	library(stringr)
	library(ggplot2)

	d <- rtweet::search_tweets("from:stats_feed", n = 30) %>%
	filter(status_id == "1521871339908263937") %>%
	pull(text) %>%
	str_split("\n") %>%
	as_tibble(.name_repair = "universal") %>%
	rename("data" = "...1") %>%
	start_date	stop_date
	1999-07-15	1999-11-15
	1999-11-15	2000-02-15
	1999-12-15	2000-02-15
	2000-09-15	2002-02-15
	2002-02-15	2003-12-15
	2002-02-15	2003-12-15
	2003-02-15	2004-03-15
	2004-04-15	2004-08-15
	2004-08-15	2005-04-15
	Category: All categories

	Month,Data scientist: (United States)
	2004-01,0
	2004-02,0
	2004-03,0
	2004-04,0
	2004-05,0
	2004-06,0
	2004-07,0
	# https://rstudio-pubs-static.s3.amazonaws.com/155168_61e1f687681d44e4988ce28b7f6ec13b.html
	# https://www.leehbi.com/blog/2019-06-04-Google-Trends-with-R

	library("dplyr")
	library("ggplot2")
	library("gtrendsR")
	library("extrafont")

	loadfonts(device = "win")
	# Sources:
	# - https://www.git-tower.com/learn/git/faq/git-rename-master-to-main/
	# - https://gist.github.com/kelynch/9ba595e369c304b560477f3636b41e8a

	git checkout master # Assumes master is default branch
	git branch -m master main
	git fetch origin
	git branch -u origin/main main
	git remote set-head origin -a
	# Load relevant packages
	library(purrr)
	library(stringr)
	library(glue)


	#' Programmatically generate xaringan outline
	#'
	#' @param file string name of generated xaringan RMarkdown
	#' @param ... list of objects containing the structure for the presentation