# NOT RUN {
Filters <- matrix(c("R code", ".R", "R code", ".s",
"Text", ".txt", "All files", "*"),
4, 2, byrow = TRUE)
Filters
if(interactive()) tk_choose.files(filter = Filters)
# }
Run the code above in your browser using DataLab