# testing for lint
library(dplyr)

print("test")

library(purrr)

d <<- 2