data-raw/morfometria2020.R

In ShinyFabio/OliveHealthR: A Shiny App for statistical and graphical analysis of data from the Olivehealth project

## code to prepare `Morfometria2020` dataset goes here

library(dplyr)
library(readxl)
drupe = readxl::read_xlsx("C:/Users/fabio/Desktop/OliveHealthR/data-raw/morfometria/morfometria_drupe_aggiornato.xlsx") %>%
  janitor::remove_empty("rows")

foglie = readxl::read_xlsx("C:/Users/fabio/Desktop/OliveHealthR/data-raw/morfometria/morfometria_foglie_aggiornato.xlsx") %>%
  janitor::remove_empty("rows")

endocarpo = readxl::read_xlsx("C:/Users/fabio/Desktop/OliveHealthR/data-raw/morfometria/morfometria_endocarpo.xlsx") %>%
  janitor::remove_empty("rows")

rapporti = readxl::read_xlsx("C:/Users/fabio/Desktop/OliveHealthR/data-raw/morfometria/Rapporti_drupe_endocarpo.xlsx") %>%
  janitor::remove_empty("rows")

morfometria2020 = list("Foglie" = foglie, "Drupe" = drupe, "Endocarpo" = endocarpo, "Rapporti" = rapporti) #mancano endocarpo e rapporti che non sono aggiornati

usethis::use_data(morfometria2020, overwrite = TRUE)