Miles McBain MilesMcBain

## bcdata_selection_Untitled-1
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,

## praise_be.R
some_praise <- quote(praise::praise())

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

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

## aws_osrm_backend_instance.md

      
              5 files
            
          
              0 forks
            
          
              3 comments
            
          
              1 star
            
          
                MilesMcBain
                / aws_osrm_backend_instance.md
            
            
              Last active
              March 12, 2021 04:45
            
              
                WSL Setup OSRM
              
          
    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


## addins.json
{
    "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"
}

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

## anonymous.R
## 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'

## werid.R
``` 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"

## summarise_fruit.R
``` 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"

## deps_target_recursive.R
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()

## gist:74b71a8e9f43c61b4f6918bc0d80fa98
``` 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
	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,
	some_praise <- quote(praise::praise())

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

	print(praise_fn_code)
	#> function() {
	#> praise::praise()
	#> }
	{
	"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"
	}
	https://milesmcbain.xyz/alt-r-with-vscode/
	https://sharla.party/post/comparing-two-dfs/
	https://themockup.blog/posts/2020-07-25-meta-rmarkdown/
	## 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'
	``` 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"
	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()
	``` 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