clients = c("shell", "sustrans", "yorkshire", "hastings", 
            "Pragmatic", "nhs", "royal_statistical_society", 
            "Francis_Crick_Institute", "Ministry_of_Defence", 
            "University_of_Manchester")
clients = glue::glue("example/assets/{clients}.png")

clients = system.file(clients, package = "jrPresentation")

dir.create("assets/", showWarnings = FALSE)
fs::file_copy(clients, rep("assets", length(clients)), overwrite = TRUE)


jr-packages/jrSlides documentation built on Dec. 8, 2019, 5:20 p.m.