R/import.all.xlsx.sheets.R

In irisweyermenkhoff/toyota-idv-functions: Risk Reporting and Toolbox Calculation Functions

# Import all sheets from excel

import.all.xlsx.sheets <- function(path_key) {
if(!file.exists(path_key)){
	print("File does not exist!")
	showNotification("File does not exist!", type = "error")
	return()
}
	
	path_key %>%
	excel_sheets() %>%
	set_names() %>%
	map(read_excel, path = path_key)
}