Luke Smith seasmith

Articles

	# Symmetrical set-difference
	# from: https://github.com/tidyverse/dplyr/issues/4811
	symdiff <- function(x, y) {
	setdiff(union(x, y), intersect(x, y))
	}

	# Inserting join
	# from: https://github.com/tidyverse/dplyr/issues/1275
	insert <- function(data, insertData, by) {
	data %>%

	# What you need to know:
	# * environments -- inheritance of definition
	# * frames -- call reference
	#
	# What does that mean?
	# * environments are inherited when a function is defined (i.e. f <- function () {})
	# * frames refer to where a function was called from, not where it was defined

	i <- 1

	price_type <- c("henry_hub_spot", "future_contract_1",
	"future_contract_2", "future_contract_3",
	"future_contract_4")

	make_proper_names <- function (x) {
	stringr::str_replace_all(x, "_", " ") %>%
	stringr::str_to_title()
	}

	make_proper_names(price_type)

	# Produces an 'unmatched length' error
	last_by_group <- function (x, group = NULL, order_by = NULL, default = default_missing(x)) {
	if (is.null(group)) {
	return(last(x, order_by = order_by, default, default))
	} else {
	tapply(X = x, INDEX = group, FUN = last)
	}
	}

	apply_rows <- function (x, fun, ...) apply(x, 1, fun, ...)
	apply_columns <- function (x, fun, ...) apply(x, 2, fun, ...)
	apply_groups <- function (x, groups, fun, ...) tapply(x, groups, fun, ...)

	options(
	usethis.description = list(
	`Authors@R` = 'person("Luke", "Smith", email = "[email protected]", role = c("aut", "cre"))',
	License = "GPL-3"
	)
	)