How to design a function to read multi excel files and make a repetition calculation in R

Question

I have a file contain a multi excel sheet, I want to run a function to read every sheet and subtract one column from another, then calculate a mean

I tried

library(readxl)

average_working_hours <- function(Name) {
    Name <- read_excel("~/Name.xlsx")
    hours12 <- 12*60*60
    av_wh_Name <- mean((Name$`Departure of staff`+ hours12) - Name$`Attendance of Staff`, na.rm = TRUE)
    av_wh_Name
}

average_working_hours(Name = Noha)

have an ERROR 
 **Error in read_fun(path = path, sheet = sheet, limits = limits, shim = shim,  : 
  Evaluation error: zip file 'C:/Users/user 2/Documents/Name.xlsx' cannot be opened.**

then I tried

average_working_hours <- function(Name) {
    Name <- read_excel(sprintf("~/%s.xlsx ",Name))
    hours12 <- 12*60*60
    av_wh_Name <- mean((Name$`Departure of staff`+ hours12) - Name$`Attendance of Staff`, na.rm = TRUE)
    av_wh_Name
}
average_working_hours(Name = Noha)

have an ERROR 
 **Error in switch(ext, xls = "xls", xlsx = "xlsx", xlsm = "xlsx", if (nzchar(ext)) { : 
  EXPR must be a length 1 vector**

where's the problem?

Answer 1

In the second code try calling the function using average_working_hours(Name = "Noha"). Screenshot of the working code