Rstudioの「ファイルを検索」のR版はありますか？

Question

urgh、私はRstudioの指定したディレクトリ内のすべてのファイル内のテキストを検索することができます機能、「ファイルで見つける」を愛し、私は、検索やファイルの種類するディレクトリを指定する方法を嫌い、あなたはをクリックしてポイントする必要があります！

誰もがRコンソールでこれを行う簡単な方法を知っていますか？で、私のgdnsパッケージ結果の最上位レベルにコンソールで

> fif("map") 

を実行

Answer 1

fif <- function(what, where=".", in_files="\\.[Rr]$", recursive = TRUE, 
       ignore.case = TRUE) { 

    fils <- list.files(path = where, pattern = in_files, recursive = recursive) 

    found <- FALSE 

    file_cmd <- Sys.which("file") 

    for (fil in fils) { 

    if (nchar(file_cmd) > 0) { 
     ftype <- system2(file_cmd, fil, TRUE) 
     if (!grepl("text", ftype)[1]) next 
    } 

    contents <- readLines(fil) 

    res <- grepl(what, contents, ignore.case = ignore.case) 
    res <- which(res) 

    if (length(res) > 0) { 

     found <- TRUE 

     cat(sprintf("%s\n", fil), sep="") 
     cat(sprintf(" % 4s: %s\n", res, contents[res]), sep="") 

    } 

    } 

    if (!found) message("(No results found)") 

} 

：コンソールで

R/dkim.r 
    11: #' purrr::map_df(dkim_rec, .parse_dkim) 
    21: #'  purrr::map_df(~{ 
R/gdns-package.r 
    29: #' @importFrom purrr safely map map_df %||% %>% 
R/gdns.r 
    102: results <- map(entities, gdns::query, type=type, edns_client_subnet=edns_client_subnet) 
    103: map_df(results, "Answer") 
R/spf.r 
    11: purrr::map(spf_rec, .split_spf) 
    76: purrr::map(split_spf(spf_rec), function(x) { 
    84: purrr::map(split_spf(spf_rec), function(x) { 
    92: purrr::map(split_spf(spf_rec), function(x) { 
    100: purrr::map(split_spf(spf_rec), function(x) { 
    108: purrr::map(split_spf(spf_rec), function(x) { 

。

どのファイルがwhatを一致されていない場合、それはそう説明します：

> fif("python") 
(No results found) 

があなたの~/.Rprofileで機能を維持し、それはすべての非バニラRセッションになります。