R命令行文件對話框？類似於file.choose

Question

是否有任何R用戶知道R中的「打開文件」類型函數？ 優選地，它就會有一個文本界面，例如：

> file.choose("/path/to/start/at") 
path/to/start/at: 
[1] [D] a_directory 
[2] [D] another_directory 
[3] [F] apicture.tif 
[4] [F] atextfile.txt 
... 
[..] Go up a directory 
Enter selection: 

而且我可以通過瀏覽，直到我選擇我想要的文件（S）。

我上午意識到目前file.choose，但（在Linux反正），只是說：「中輸入文件名：」並採取任何你輸入，但不給你瀏覽的能力。 （也許在Windows上顯示「打開文件」對話框？）。

我喜歡打開文件對話框，但寧願遠離加載GUI包，如RGtk2/tcltk /等只是爲此。

我也可以自己編寫上述文本瀏覽器，但我想我會詢問是否有人知道這樣的功能，然後再嘗試重新發明輪子（並且在它工作之前弄錯了很多次！ ）

歡呼聲。

更新

答案對於基於文本的界面是「否」。但基於@ TylerRinker的解決方案和評論@Iterator，我寫我自己的函數來做到這一點（和它比我想象感謝他們更容易！）：

編輯 - 修改默認multiple=F因爲通常人們期望選擇一個文件。

#' Text-based interactive file selection. 
#'@param root the root directory to explore 
#'    (default current working directory) 
#'@param multiple boolean specifying whether to allow 
#'     multiple files to be selected 
#'@return character vector of selected files. 
#'@examples 
#'fileList <- my.file.browse() 
my.file.browse <- function (root=getwd(), multiple=F) { 
    # .. and list.files(root) 
    x <- c(dirname(normalizePath(root)), list.files(root,full.names=T)) 
    isdir <- file.info(x)$isdir 
    obj <- sort(isdir,index.return=T,decreasing=T) 
    isdir <- obj$x 
    x <- x[obj$ix] 
    lbls <- sprintf('%s%s',basename(x),ifelse(isdir,'/','')) 
    lbls[1] <- sprintf('../ (%s)', basename(x[1])) 

    files <- c() 
    sel = -1 
    while (TRUE) { 
        sel <- menu(lbls,title=sprintf('Select file(s) (0 to quit) in folder %s:',root)) 
        if (sel == 0) 
            break 
        if (isdir[sel]) { 
            # directory, browse further 
            files <- c(files, my.file.browse(x[sel], multiple)) 
            break 
        } else { 
            # file, add to list 
            files <- c(files,x[sel]) 
            if (!multiple) 
                break 
            # remove selected file from choices 
            lbls <- lbls[-sel] 
            x <- x[-sel] 
            isdir <- isdir[-sel] 
        } 
    } 
    return(files) 
} 

這可能與符號鏈接和BARF的 '..'，因爲我用normalizePath，..但很好哦。

Answer 1

我有種你想做的，我保留在我的.R檔案中。它有一個菜單界面，因爲它是默認的查看工作目錄。如果你想把它擴展到從根目錄開始，並從那裏找出菜單，你必須做很多修改功能。

該函數僅在菜單中找到.txt .R和.Rnw文件。

Open <- function(method = menu) { 
    wd<-getwd() 
    on.exit(setwd(wd)) 

    x <- dir() 
    x2 <- subset(x, substring(x, nchar(x) - 1, nchar(x)) == ".R" | 
     substring(x, nchar(x) - 3, nchar(x)) %in%c(".txt", ".Rnw")) 

    if (is.numeric(method)) {  
     x4 <- x2[method] 
     x5 <- as.character(x4) 
     file.edit(x5) 
    } else { 
     switch(method, 
      menu = { x3 <- menu(x2) 
        x4 <- x2[x3] 
        x5 <- as.character(x4) 
        file.edit(x5) 
        }, 
      look = file.edit(file.choose())) 
    } 
} 

########## 
#Examples 
######### 
Open() 
Open("L") 

Answer 2

這不使用「菜單」，但我希望能夠顯示「D」，如果某事是目錄。它可能可以通過在字符串的開頭添加「D」來修改，但是很好。這默認從當前工作目錄開始。有很多可以調整和更強大，但這無疑是一個開始。

## File chooser 
file.chooser <- function(start = getwd(), all.files = FALSE){ 
    DIRCHAR <- "D" 
    currentdir <- path.expand(start) 
    repeat{ 
     ## Display the current directory and add .. to go up a folder 
     display <- c(dir(currentdir, all.files = all.files)) 
     ## Find which of these are directories 
     dirs <- c(basename(list.dirs(currentdir, rec=F))) 

     if(!all.files){ 
      display <- c("..", display) 
      dirs <- c("..", dirs) 
     } 

     ## Grab where in the vector the directories are 
     dirnumbers <- which(display %in% dirs) 

     n <- length(display) 
     ## Create a matrix to display 
     out <- matrix(c(1:n, rep("", n), display), nrow = n) 
     ## Make the second column an indicator of whether it's a directory 
     out[dirnumbers, 2] <- DIRCHAR 
     ## Print - don't use quotes 
     print(out, quote = FALSE) 
     ## Create choice so that it exists outside the repeat 
     choice <- "" 
     repeat{ 
      ## Grab users input 
      ## All of this could be made more robust 
      choice <- scan(what = character(), nmax = 1, quiet = T) 
      ## Q or q will allow you to quit with no input 
      if(tolower(choice) == "q"){ 
       return(NULL) 
      } 
      ## Check if the input is a number 
      k <- suppressWarnings(!is.na(as.numeric(choice))) 
      if(k){ 
       break 
      }else{ 
       ## If the input isn't a number display a message 
       cat("Please input either 'q' or a number\n") 
      } 
     } 
     ## Coerce the input string to numeric 
     choice <- as.numeric(choice) 

     if(out[choice, 2] != DIRCHAR){ 
      ## If the choice isn't a directory return the path to the file 
      return(file.path(currentdir, out[choice, 3])) 
     }else{ 
      ## If the input is a directory add the directory 
      ## to the path and start all over 
      currentdir <- path.expand(file.path(currentdir, out[choice, 3])) 
     } 
    } 
} 

file.chooser() 

編輯：我沒有看到您的更新。你的功能比我的好多了！你應該張貼你的答案並接受它。