R/create_example_data.R

In flightlab/MultiPanelPlotsWithR: Multi Panel Plots in R for UBC Graduate Course BIO548L

write_example_data <- function(){
  file.copy(system.file("extdata", "gapminder.csv",
              package = "MultiPanelPlotsWithR"),
            "./gapminder.csv")
  file.copy(system.file("extdata", "gapminder.xlsx",
                        package = "MultiPanelPlotsWithR"),
            "./gapminder.xlsx")
}