swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Tip revision: ce60f670aac0a708d3a9af5f0cf46a752d46ba8a authored by John M Chambers on 28 October 2020, 07:59:48 UTC
version 1.0-6.1
version 1.0-6.1
Tip revision: ce60f67
localRFiles.R
localRFiles <- function(directory = getwd(), suffix = "[.][RSq]$", ask = FALSE) {
files <- list.files(directory)
which <- grep(suffix, files)
if(ask) {
files <- files[which]
which <- menu(c(files, "Other?"), graphics = TRUE)
if(which > length(files)) {
message("Enter a file name:")
return(scan(stdin(), "",n=1))
}
}
files[which]
}