Patrick Baylis pbaylis

## rstudio-reset.sh
rm -rf ~/.rstudio
rstudio-server kill-all

## reduce-merge.R
Reduce(function(x, y) merge(x, y, all=TRUE), list(df1, df2, df3))
# OR #
Reduce(function(...) merge(..., all=TRUE), list(df1, df2, df3))

## sensitivity-curve.R
# Create sensitivity curve of coefficient estimates
library(tidyverse)
library(cowplot)
library(fastDummies)

# Setup ----
rm(list = ls())
theme_set(theme_cowplot())
set.seed(42)

## dynamic-var-names-dplyr.R
multipetal <- function(df, n) {
    varname <- paste("petal", n , sep=".")
    mutate(df, !!varname := Petal.Width * n)
}

## points-in-polys.R
points.shp <- points.shp[apply(sf::st_intersects(points.shp, polys), 1, any),]

## mult-fxn-mult-col.R
my.summary = function(x) list(mean = mean(x), median = median(x))
DT[, as.list(unlist(lapply(.SD, my.summary))), .SDcols = c('a', 'b')]


## pad-with-zeroes.R
x <- c(5, 15, 2015)
sprintf(sprintf("%03d", x))

## execute-tmux.sh
## Logging into server
ssh <server-address>
# Login
tmux
# CTRL-b d to detach tmux
exit

## When returning to server
tmux attach

## update-beamer-packages.R
library(tinytex)
tlmgr_search('/times.sty')   # search for times.sty
tlmgr_install('psnfss')      # install the psnfss package
tlmgr_update()               # update everything

## bear_morning.sh
#!/bin/bash
DATE=`date "+%A, %b %d %Y"`
YESTERDAY=`date -v-1d "+%A, %b %d %Y"`
open "bear://x-callback-url/create?title=$DATE&text=## Beginning of day thoughts

## Goals
  -
## End of day thoughts
[[$YESTERDAY]]&tags=dailylog"
	Reduce(function(x, y) merge(x, y, all=TRUE), list(df1, df2, df3))
	# OR #
	Reduce(function(...) merge(..., all=TRUE), list(df1, df2, df3))
	# Create sensitivity curve of coefficient estimates
	library(tidyverse)
	library(cowplot)
	library(fastDummies)

	# Setup ----
	rm(list = ls())
	theme_set(theme_cowplot())
	set.seed(42)
	multipetal <- function(df, n) {
	varname <- paste("petal", n , sep=".")
	mutate(df, !!varname := Petal.Width * n)
	}
	my.summary = function(x) list(mean = mean(x), median = median(x))
	DT[, as.list(unlist(lapply(.SD, my.summary))), .SDcols = c('a', 'b')]
	## Logging into server
	ssh <server-address>
	# Login
	tmux
	# CTRL-b d to detach tmux
	exit

	## When returning to server
	tmux attach
	library(tinytex)
	tlmgr_search('/times.sty') # search for times.sty
	tlmgr_install('psnfss') # install the psnfss package
	tlmgr_update() # update everything
	#!/bin/bash
	DATE=`date "+%A, %b %d %Y"`
	YESTERDAY=`date -v-1d "+%A, %b %d %Y"`
	open "bear://x-callback-url/create?title=$DATE&text=## Beginning of day thoughts

	## Goals
	-
	## End of day thoughts
	[[$YESTERDAY]]&tags=dailylog"