Davis Vaughan DavisVaughan

## hop.R
blah

## zone-transitions.R
library(clock)
library(purrr)
library(vctrs)
library(tibble)

generate_transitions <- function(zone,
                                 from = date_build(1900, 1, 1),
                                 to = date_build(2030, 1, 1)) {
  days <- date_seq(
    from = from,

## spooky.txt
dummy

## pet.txt
dummy

## baby.txt
dummy

## graves.txt
dummy

## rolling-join-example.R
foo

## rlang-static-data-mask.R
f1 <- function(...) {
  data <- list(a = 100)
  # Optionally, for performance if calling `eval_tidy()` a lot:
  # data <- as_data_mask(data)

  dots <- rlang::enquos(...)
  n_dots <- length(dots)

  out <- vector("list", length = n_dots)


## install-packages-note.r
> install.packages("lubridate")
Warning in install.packages :
  package ‘lubridate’ is in use and will not be installed

## dplyr-group-expander.R
library(tidyr)
library(dplyr)

df <- tibble(
  g1 = c("x", "x", "y", "y", "y"),
  g2 = factor(c("a", "a", "a", "b", "a"), levels = c("a", "b", "c"))
)
df

df %>%
	library(clock)
	library(purrr)
	library(vctrs)
	library(tibble)

	generate_transitions <- function(zone,
	from = date_build(1900, 1, 1),
	to = date_build(2030, 1, 1)) {
	days <- date_seq(
	from = from,
	f1 <- function(...) {
	data <- list(a = 100)
	# Optionally, for performance if calling `eval_tidy()` a lot:
	# data <- as_data_mask(data)

	dots <- rlang::enquos(...)
	n_dots <- length(dots)

	out <- vector("list", length = n_dots)
	> install.packages("lubridate")
	Warning in install.packages :
	package ‘lubridate’ is in use and will not be installed
	library(tidyr)
	library(dplyr)

	df <- tibble(
	g1 = c("x", "x", "y", "y", "y"),
	g2 = factor(c("a", "a", "a", "b", "a"), levels = c("a", "b", "c"))
	)
	df

	df %>%