Search script files in RStudio; open via file protocol

gistfile1.txt

library(dplyr)
library(DT)
library(purrr)
library(tidyr)

phraseToSearch <- 'this|that'

scriptFiles <-
  bind_rows(
    map_dfc('~/R', list.files, full.names = T) %>% rename(fileNames = V1),
    map_dfc('~/randomTraining', list.files, full.names = T) %>% rename(fileNames = V1)
  ) %>%
  filter(grepl('.sql$|.R$|.py$|.pyc$|.txt$|.yxmd$|.sh$|.awk$', fileNames, ignore.case = T))

logicalFileVector <- vector()

for (i in seq_along(scriptFiles$fileNames)){
  logicalFileVector[i] <- any(grep(phraseToSearch, readLines(scriptFiles$fileNames[i]), value = F, ignore.case = T))
}

filesWithString <- 
bind_cols(scriptFiles, as_tibble(logicalFileVector)) %>% 
  filter(value) %>%
  select(-value) %>%
  mutate(fileNames = paste0("file://", fileNames))

datatable(filesWithString, class='cell-border')