kjhealy

Installing tmux-256color for macOS

• macOS 10.15.5
• tmux 3.1b

macOS has ncurses version 5.7 which does not ship the terminfo description for tmux. There're two ways that can help you to solve this problem.

The Fast Blazing Solution

Instead of tmux-256color, use screen-256color which comes with system. Place this command into ~/.tmux.conf or ~/.config/tmux/tmux.conf(for version 3.1 and later):

kjhealy

## Context: https://twitter.com/grant_mcdermott/status/1493400952878952448

options(collapse_mask = "all") # NB: see `help('collapse-options')`

library(dplyr)
library(data.table)
library(collapse) # Needs to come after library(dplyr) for collapse_mask to work

flights = fread('https://raw.githubusercontent.com/Rdatatable/data.table/master/vignettes/flights14.csv')

kjhealy

This is my personal list of functions that I wrote for converting mov files to mp4!

Command Flags

Flag	Options	Description
-codec:a	libfaac, libfdk_aac, libvorbis	Audio Codec
-quality	best, good, realtime	Video Quality
-b:a	128k, 192k, 256k, 320k	Audio Bitrate
-codec:v	mpeg4, libx264, libvpx-vp9	Video Codec

kjhealy

library(dplyr, warn.conflicts = FALSE)
library(gapminder)
probs <- c(0.1, 0.5, 0.9)

gapminder %>% 
  group_by(continent) %>% 
  summarise(
    probs = probs,
    across(is.numeric & !year, ~ quantile(.x, probs))
  )

kjhealy

# pkgs
pacman::p_load(tidyverse, polite, scales, ggimage, ggforce,
               rvest, glue, extrafont, ggrepel, magick)
loadfonts()

## add_logo function from Thomas Mock
add_logo <- function(plot_path, logo_path, logo_position, logo_scale = 10){

    # Requires magick R Package https://github.com/ropensci/magick

kjhealy

# Animated dplyr joins with gganimate
# * Garrick Aden-Buie
# * garrickadenbuie.com
# * MIT License: https://opensource.org/licenses/MIT

# Note: I used Fira Sans and Fira Mono fonts.
#       Use search and replace to use a different font if Fira is not available.

library(tidyverse)
library(gganimate)

kjhealy

library(XML)
library(ggplot2)

df <- readHTMLTable("http://projects.dailycal.org/paychecker")[[1]]
colnames(df)[4] <- "Salary"
df$Salary <- as.numeric(gsub('[$,]', '', df$Salary))

p <- ggplot(df, aes(x=Department, y=Salary)) + coord_flip()
p + geom_boxplot(aes(color=Rank,
                     x=reorder(Department, Salary, FUN=max))) +

kjhealy

library(XML)
library(ggplot2)

df <- readHTMLTable("http://projects.dailycal.org/paychecker/departments/")[[1]]

DeMoney <- function(x) as.numeric(gsub(",", "", gsub("\\$", "", as.character(x))))

money.columns <- c("All", "Professor", "Associate professor", "Assistant professor", 
                   "Lecturer")

kjhealy

Shortcut for Syntax Highlighting in Keynote

The idea is based on a gist by @jimbojsb.

You can use Pygments or Highlight.

Install Pygments

brew install python

kjhealy

# sources:
# http://www.jgoodwin.net/?p=1223
# http://orgtheory.wordpress.com/2012/05/16/the-fragile-network-of-econ-soc-readings/
# http://nealcaren.web.unc.edu/a-sociology-citation-network/
# http://kieranhealy.org/blog/archives/2014/11/15/top-ten-by-decade/
# http://www.jgoodwin.net/lit-cites.png


###########################################################################
# This first section scrapes content from the Web of Science webpage. It takes