swh:1:snp:a4c99a50dc49f82b591f268001b320f8c3ca0041
Raw File
Tip revision: 9e5b9bb8a0564f8bf629df4ca5e96d3078f50363 authored by jmc on 14 July 2008, 00:00:00 UTC
version 1.0-2
Tip revision: 9e5b9bb
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]
}

    
    
    
back to top