MilesMcBain

library(tidyverse)

first_year <- tibble(year = 2010, z = 1, x = 2, y = 3)

all_years <- first_year %>%
    bind_rows(tibble(year = 2011:2015))

all_years %>%
    summarise(
        year = year,

MilesMcBain

some_praise <- quote(praise::praise())

praise_fn_code <- bquote(function() {
  .(some_praise)
})

print(praise_fn_code)
#> function() {
#>     praise::praise()
#> }

MilesMcBain

as per: aws_overpass_instance.md

• docker
• aws cli
  • aws credentials

get osrm australia data from s3

 aws s3 cp s3://pims-osrm-source-data/australia-latest.osm.bz2 ./australia-latest.osm.bz2

MilesMcBain

{
    "fnmate::rs_fnmate": "Ctrl+Shift+F",
    "drake::rs_addin_r_make": "Ctrl+M",
    "drake::rs_addin_loadd": "Ctrl+L",
    "shrtcts::shortcut_01": "Ctrl+P",
    "shrtcts::shortcut_02": "Ctrl+O",
    "shrtcts::shortcut_03": "Ctrl+T"
}

MilesMcBain

https://milesmcbain.xyz/alt-r-with-vscode/
https://sharla.party/post/comparing-two-dfs/
https://themockup.blog/posts/2020-07-25-meta-rmarkdown/

MilesMcBain

## apply a function to square a list of numbers
square <- function(x) {
  x^2
}

lapply(list(1,2,3), square)

## save some code and declare 'square' anonymously - i.e. never assign it anywhere
## using the name 'square'

MilesMcBain

``` r
library(tidyverse)

fruits <- tribble(~fruit, ~date, ~sold,
                  "Apple", "2020-06-23", 1,
                  "Apple", "2020-06-24", 2) %>%
  mutate(fruit = fct_expand(fruit, "Banana"))

levels(fruits$fruit)
#> [1] "Apple"  "Banana"

MilesMcBain

``` r
library(tidyverse)

fruits <- tribble(~fruit, ~date, ~sold,
                  "Apple", "2020-06-23", 1,
                  "Apple", "2020-06-24", 2) %>%
  mutate(fruit = fct_expand(fruit, "Banana"))

levels(fruits$fruit)
#> [1] "Apple"  "Banana"

MilesMcBain

deps_target_recursive <- function(target, plan){

  deps <- deps_target(target, plan = plan, character_only = TRUE)

  target_itr <- function(deps, all_deps){

    new_deps <-
      purrr::map_dfr(.x = deps$name,
              .f = ~ drake:::deps_target_impl(.x, drake:::drake_config2(plan), character_only = TRUE)) %>%
      distinct() 

MilesMcBain

``` r
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