if (FALSE) {
library(funspotr)
library(dplyr)
file_lines <- "
library(dplyr)
require(tidyr)
as_tibble(mpg) %>%
group_by(class) %>%
nest() %>%
mutate(stats = purrr::map(data,
~lm(cty ~ hwy, data = .x)))
"
file_output <- tempfile(fileext = '.R')
writeLines(file_lines, file_output)
spot_pkgs(file_output) %>%
check_pkgs_availability() %>%
install_missing_pkgs()
}
Run the code above in your browser using DataLab