maelle

get_followers_and_wait <- function(user){
  # don't re-query the same data twice
  exists <- paste0("followers", user, ".RData") %in% dir("data/2017-06-03-twitter")
  if(exists){
    # if it already exists use it
    load(paste0("data/2017-06-03-twitter/followers", user, ".RData"))
  }else{
    # otherwise query after checking the rate limit
    rates <- rtweet::rate_limit(token = rtweet::get_tokens(),
                              query = "followers/ids")

maelle

library("rtweet")
set.seed(1)
these_are_locke_followers <- rtweet::get_followers("lockedata")
winning_index <- sample.int(nrow(these_are_locke_followers), 1)
this_is_a_locke_winner <- these_are_locke_followers[winning_index,]
this_is_a_locke_winner_info <- rtweet::lookup_users(this_is_a_locke_winner)
paste0(this_is_a_locke_winner_info$name, " (@",
       this_is_a_locke_winner_info$screen_name, 
       praise::praise(") is ${adjective} and won!"))

maelle

Keybase proof

I hereby claim:

• I am maelle on github.
• I am maelle_salmon (https://keybase.io/maelle_salmon) on keybase.
• I have a public key ASB_su43bGoQeukE0ydto5hWzNJTh7li1s0eCx3wKyxRoQo

To claim this, I am signing this object:

maelle

# First step is to authenticate yourself see http://rtweet.info/articles/auth.html

# your username
who <- "ma_salmon"
# Users I already follow
following <- rtweet::get_friends(users = who)

# Users from the list
unconf18 <- rtweet::lists_members(slug = "ropensci-runconf18",
                                  owner_user = "ropensci")

maelle

You can get issues ordered by thumbs up votes on the first comment via ghrecipes! An idea of Kirill Müller’s

issues <- ghrecipes::get_issues_thumbs(owner = "tidyverse", 
                                          repo = "dplyr")

maelle

# not possible to change labels via V4 
# https://platform.github.community/t/mutations-for-label/2144

# list labels
current_labels <- gh::gh("/repos/:owner/:repo/labels", 
                         owner = "ropensci",
                         repo = "unconf18")
current_labels <- purrr::map_chr(current_labels, "name")

# delete all labels

maelle

library("magrittr")

# get current author list
codemetar_current_desc <- ghrecipes::get_description("ropensci",
                                                     "codemetar",
                                                     branch = "dev")
# parse it to a data.frame
parse_author <- function(person){
  if(!is.null(person$family)){
    tibble::tibble(given = person$given,

maelle

``` r
cran_db <- tools::CRAN_package_db()
cran_db <- cran_db[, c("Package", "SystemRequirements",
                       "Imports", "Depends", "Suggests")]

java <- dplyr::filter(cran_db, 
                      stringr::str_detect(Imports, "rJava") |
                        stringr::str_detect(Imports, "rJava") |
                        stringr::str_detect(Depends, "rJava")|
                        stringr::str_detect(SystemRequirements, "[Jj]ava"))

maelle

---
title: "¡Mejo`r icon::fa('r-project')` ciencia con rOpenSci!"
subtitle: "Maëlle Salmon <br/> [`r icon::fa('twitter')`](https://twitter.com/ropensci) ropensci [`r icon::fa('github')`](https://github.com/ropensci) ropensci [`r icon::fa('globe')`](https://ropensci.org) ropensci.org"
date: "2018/09/05"
output:
  xaringan::moon_reader:
    css: ["default", "metropolis", "metropolis-fonts", "my-theme.css"]
    lib_dir: libs
    nature:
      highlightStyle: github

maelle

``` r
roblog <- "C:\\Users\\Maelle\\Documents\\ropensci\\roweb2\\content\\blog"

all_posts <- fs::dir_ls(roblog, regexp = "*.md")
all_posts <- all_posts[all_posts != "_index.md"]

library("magrittr")

# Headers
get_headers <- function(path){