I want to read Excel files from a certain directory. However, because the names change I cant use a fixed name. I therefore would like to do the following:

• Show which files are in the dir
• Select one of them.
• Read the file and return.

I set up the part where I list the files

read_BUNQ_data <- function(dir){
 dirs <- list.files(dir)
 print(dirs)
}

Any advice on how I can capture the user input and then open that file?