kelly-sovacool

library(tidyverse)
f <- function(dat, colname) {
    varname <- rlang::as_name(rlang::enquo(colname))
    new_df <- data.frame(x = c('a','b','c')) %>%
        mutate({{varname}} := dat %>% pull({{ colname }}))
    return(new_df)
}

df1 <- data.frame(a = 1:3, b = 4:6)
df1 %>% f(a)

kelly-sovacool

ColorBrewer.R linguist-vendored=true

kelly-sovacool

Maintaining R packages

Why make a package?

• To make it easier for others to re-use your code.
• To signify that your code adheres to certain conventions agreed upon by the community.

What is an R package?

At minimum: a collection of R scripts in a directory called R/ + a DESCRIPTION file

kelly-sovacool

#' ---
#' output:
#'   md_document:
#'     pandoc_args:
#'       - '--from=markdown-implicit_figures'
#'       - '--to=commonmark'
#'       - '--wrap=preserve'
#' ---

kelly-sovacool

# practice with custom conditions
# https://adv-r.hadley.nz/conditions.html#custom-conditions
library(dplyr)
abort_bad_argument <- function(arg, must, not = NULL) {
    msg <- glue::glue("`{arg}` must {must}")
    if (!is.null(not)) {
        not <- typeof(not)
        msg <- glue::glue("{msg}; not {not}.")
    }

kelly-sovacool

pick_something <- function(choice) {
    ifelse(choice == 'list',
           list("here's", "your", "list"),
           "this isn't a list")
}

pick_something('anything_else')
#> [1] "this isn't a list"
pick_something('list')
#> [[1]]

kelly-sovacool

---
date: "2020-05-04"
output: 
    github_document:
        html_preview: false
---
```{r, include=FALSE}
knitr::opts_chunk$set(fig.path = here::here())
```

kelly-sovacool

library(tidyverse)

ross_data <- read_csv("https://raw.githubusercontent.com/fivethirtyeight/data/master/bob-ross/elements-by-episode.csv",
	col_types="ccddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd") %>%
	mutate(TITLE = gsub("\\\"", '', TITLE))

themes <- c('MOUNTAIN', 'WINTER', 'AUTUMN', 'LAKE', 'CABIN')

#############################################################
#  Part 1 - fill in the blanks each line of the function

kelly-sovacool

Notes from the URSSI Winter School

Update: these notes are now here: https://sovacool.dev/posts/2019/12/urssi-winterschool-notes

Slides & other resources: https://github.com/si2-urssi/winterschool

Contents:

• Day 1

kelly-sovacool

spearman-perm

Comparing runtime of a for loop vs comprehensions for a permutation test

Usage

$ python spearman-perm.py <p_value> <num_sims>

Results