https://rstudio.github.io/rstudioapi/articles/dialogs.html

path <- rstudioapi::selectFile(caption = "Select CSV File",
                               filter = "CSV Files (*.csv)",
                               existing = TRUE)

knitr::include_graphics('../figure/open_windows.png')