MilesMcBain

the_plan <-
  drake_plan(
    start_date = as_datetime("2018-01-01"),
    end_date = as_datetime("2020-01-01") - seconds(1),

    permanent_limit = 12 * 60,
    auxiliary_limit = 7 * 60,

    percentile = 0.9,

MilesMcBain

library(dplyr)
library(nycflights13)

mutate <- function(..dat, ...) {
  ungroup(
    dplyr::mutate(..dat, ...)
  )
}

mutate... <- function(..dat, ...) {

MilesMcBain

##' Create an sf POINT column from long and lat columns
##'
##' This is a vectorised function that takes 2 columns of longitude and latitude
##' as arguments and returns a simple features geometry collection column in the
##' EPSG 4326 coordinate reference system (lon, lat).
##'
##' @title lon_lat_to_point
##' @param lon a numeric column of longitudes
##' @param lat a numeric column of latitudes
##' @return a simple features collection column of POINT geometries representing the lon/lat pairs.

MilesMcBain

library(tidyverse)
library(lubridate)

epoch <- ymd("20080101")

date_frame <-
  data.frame(
    date = days(seq(1, 365 * 10, 1)) + epoch,
    response = cumsum(rnorm(365 * 10))
  )

MilesMcBain

callr::r(function(){
  renv::init(bare = TRUE)
})

callr::r(function(){
  renv::deactivate()
})

renv::hydrate(renv::dependencies("./packages.R")$Package,
              library = renv::paths$library())

MilesMcBain

Set up library

1. renv::init(bare = TRUE)

2. renv::deactivate()

3. renv::install(renv::dependencies("./packages.R")$Package)

Errors on GitHub only packages.

MilesMcBain

```` r

target_text <- "foo = 1 ``` ```{r} foo = 2"
tstfile = srcfile(tempfile())
parse(text = target_text,
      keep.source = TRUE,
      srcfile = tstfile)
#> Error in parse(text = target_text, keep.source = TRUE, srcfile = tstfile): attempt to use zero-length variable name
getParseData(tstfile)
#> NULL

MilesMcBain

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
iris %>%

MilesMcBain

f <- function(...) {
  function(df) with(df, ...)
}

footate <- function(.data, ...) {
  dots <- list(...)

  for (column in names(dots)) {
    .data[[column]] <- dots[[column]](.data)
  }

MilesMcBain

library(tidyverse)
tibble::tribble(
          ~name,
          "John SmithManager",
          'Miles McBain'
        )  %>%
        tidyr::separate(name, into = c("name", "pos"),
                        sep = "(?<=[a-z]{2})(?=[A-Z])" )