djnavarro

pipe_bitch <- tibble::tibble(
  line = 1:80,
  lyric = c(
    "you wanna?",
    "you wanna?",
    "",
    "you wanna code tidy?",
    "you wanna R party?",
    "you wanna be Shiny?",
    "you better pipe bitch",

djnavarro

# authenticate using OSF token stored in .Renviron
osfr::osf_auth()

# define download function
download_project <- function(node, path) {
  proj <- osfr::osf_retrieve_node(node)
  files <- osfr::osf_ls_files(proj)
  if(!dir.exists(path)) dir.create(path)
  for(i in 1:nrow(files)) {
    cat("downloading: ", files$name[i], "\n")

djnavarro

# tidyeval version: tidy_outer returns
# the user expression
#
# expr quotes you
# enexpr quotes user

tidy_outer <- function(x) {
  tidy_inner(!!rlang::enexpr(x)) 
}

djnavarro

# from section 7.5.1 of ggplot2 book

library(ggplot2)

base <- ggplot(diamonds, aes(carat, price)) +
  stat_bin2d() +
  geom_smooth(method = "lm") +
  xlab(NULL) +
  ylab(NULL) +
  theme(legend.position = "none")

djnavarro

library(tidyverse)
library(asciify)
library(gganimate)

p <- ascii_data("bayes.png") %>%
  ascii_map(
    alphabet = as.character(0:9),
    rescale =  .15) %>%
  ascii_plot(charsize = 4)

djnavarro

library(ggplot2)
library(dplyr)
library(tibble)
library(tidyr)

GeomVector <- ggproto("GeomVector", Geom,

  required_aes = c("x", "y", "direction", "length"),

  default_aes = aes(

djnavarro

library(tidyverse)
library(fontr)
library(emojifont)
library(ggpolypath)
library(transformr)
library(animation)
library(Cairo)

# create the base images from cat emoji and mouse emoji!
cat <- glyph_polygon(ch = emoji("cat"), family = "EmojiOne")

djnavarro

# operator that reverses the direction of assignment
# only if called from the global environment
`%>>%` <- function(x,y) {
  if(sys.nframe() == 1) {
    assign(deparse(substitute(y)), x, parent.frame())
  } else {
    assign(deparse(substitute(x)), y, parent.frame())
  }
}

djnavarro

library(geojsonio)
library(here)
library(broom)

reload <- FALSE
if(reload) {
  spdf <- geojson_read(
    x = here("unsw_map", "worldgeo.json"),
    what = "sp"
  )

djnavarro

#devtools::install_github("djnavarro/asciify")
library(asciify)
library(magrittr)

temporary <- function(file) {
  temp_dir <- tempfile()
  dir.create(temp_dir)
  file.path(temp_dir, file)  
}