ColinFay

library(tidyverse)
library(rtweet)
library(proustr)
library(tidytext)

bdd <- search_tweets("#BreizhDataDay", n = 3000)

bdd_day <- bdd %>%
  filter(created_at < "2017-10-20 00:00:00", created_at > "2017-10-18 23:59:59")

ColinFay

library(tidyverse)
library(ggraph)
library(igraph)
library(tidytext)
library(proustr)

bdd <- read.csv("breizhdataday.csv", stringsAsFactors = FALSE)

sw <- data.frame(word  = c(as.character(proust_stopwords()$word),
                           "https","rt", "d'une", "t.co"))

ColinFay

library(purrr)
library(tidystringdist)

(comb <- tidy_comb_all(names(airquality)))
pmap(comb, ~ cor.test(airquality[[.x]], airquality[[.y]])) %>% 
  map_df(broom::tidy) %>% 
  cbind(comb, .)

ColinFay

library(tidyverse)
library(rlang)
library(glue)
library(stringr)
small_iris <- slice(iris, 1)
set_names(small_iris, ~ glue("{.x}_small"))
set_names(small_iris, ~ tolower(.x))
set_names(small_iris, ~ str_replace_all(.x, "\\.", "_"))
set_names(small_iris, ~ str_replace_all(.x, "\\.", "_") %>% tolower())

ColinFay

library(tidyverse)
files <- list.files("../open-data/", pattern = "^2017", full.names = TRUE)
full <- map_df(files, read_csv)
dplyr::glimpse(full)

# With names 

files <- list.files("../open-data/", pattern = "^2017", full.names = TRUE) %>% 
  set_names(basename(.))
full <- map_df(files, read_csv, .id = "file")

ColinFay

library(purrr)
pos_log <- possibly(log, otherwise = NA)
l <- list(1,2,3, "a", 4, "b")
map(l, pos_log) %>% discard(is.na)

ColinFay

library(purrr)
l <- list(list(1:10, 1:20), list(20:30, 40:50))
modify_depth(l, 2, ~ append(.x, sum(.x)))

ColinFay

# Classic character vector
paste0("as",".","numeric")

# getting a function 
get(paste0("as",".","numeric"))

# getting and running a function
get(paste0("as",".","numeric"))("1")

# With objects

ColinFay

# Make a function sleep 

sleepy <- function(fun, sleep){
  function(...){
    Sys.sleep(sleep)
    fun(...)
  }
}

sleep_print <- sleepy(print, 2)

ColinFay

snippet module
	${1:name}UI <- function(id){
		ns <- NS(id)
		tagList(
		
		)
	}

	${1:name} <- function(input, output, session){