Jennifer (Jenny) Bryan jennybc

## TIOBE redux
Exerting my will over the gist name

## vv_transformer.R
library(glue)

vv_transformer <- function(text, envir) {
  regex <- "=$"
  if (!grepl(regex, text)) {
    return(identity_transformer(text, envir))
  }
  text <- sub(regex, "", text)
  res <- identity_transformer(text, envir)
  n <- length(res)

## get-function-signatures_reprex.R
library(tidyverse)

## attach the package whose function signatures you want to examine
library(usethis)
x <- lsf.str(pos = "package:usethis")

## inspired by examining print.ls_str and head.function
get_signatures <- function(x) {
  x %>%
    set_names() %>%

## curl commands
curl 'https://sheets.googleapis.com/v4/spreadsheets/1eP_0mb67k0MD9BBEZ5gv7jsyFzcTvMbrr3uGTG1GXZk?includeGridData=true&ranges=Sheet1!A1%3AG6&key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_get_3.json

curl 'https://sheets.googleapis.com/v4/spreadsheets/1eP_0mb67k0MD9BBEZ5gv7jsyFzcTvMbrr3uGTG1GXZk/values/Sheet1!A1%3AG6?key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_values_get_3.json

## curl commands
curl 'https://sheets.googleapis.com/v4/spreadsheets/132Ij_8ggTKVLnLqCOM3ima6mV9F8rmY7HEcR-5hjWoQ?includeGridData=true&ranges=Sheet1!A1%3AF6&key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_get_2.json

curl 'https://sheets.googleapis.com/v4/spreadsheets/132Ij_8ggTKVLnLqCOM3ima6mV9F8rmY7HEcR-5hjWoQ/values/Sheet1!A1%3AF6?key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_values_get.json

## curl commands
curl 'https://sheets.googleapis.com/v4/spreadsheets/1BzfL0kZUz1TsI5zxJF1WNF01IxvC67FbOJUiiGMZ_mQ?includeGridData=true&ranges=Africa!A1%3AF3&key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_get.json

curl 'https://sheets.googleapis.com/v4/spreadsheets/1BzfL0kZUz1TsI5zxJF1WNF01IxvC67FbOJUiiGMZ_mQ/values/Africa!A1%3AF3?key=AIzaSyDXicV6oK4vR948PUAvlyr7QhkNwCoQ0cA' -H 'Accept: application/json' --compressed > spreadsheets_values_get.json

## pmap-and-map2-also-useful.R
library(tidyverse)

## approximates big_df in the post
big_df <- mtcars %>%
  select(cyl, mpg, disp) %>%
  arrange(cyl) %>%
  slice(17:22) %>%
  rename(ID = cyl)

## dummy function that needs access to ID and data

## 2018-02_game-of-thrones-rectangling.R
#' ---
#' output:
#'   word_document
#' ---

knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

#+
library(repurrrsive)
library(tidyverse)

## day01.R
library(testthat)

rev_captcha <- function(x) {
  x <- as.integer(strsplit(x, "")[[1]])
  xd <- diff(c(x, x[1]))
  sum(x[xd == 0])
}

expect_equal(rev_captcha("1122"), 3)
expect_equal(rev_captcha("1111"), 4)

## lect08.R
library(tidyverse)
library(repurrrsive)

df <- tibble(
  name = map_chr(got_chars, "name"),
  titles = map(got_chars, "titles")
)
df

df <- got_chars %>% {