r - How to subset .Rmd files in a directory using list.files

Question

I use this code which I got from this blog to count the number of lines of code in my .R files in a particular directory:

# Load two packages
library(dplyr)
library(stringr)
# Count your lines of R code
list.files(path = "/Users/", recursive = T, full.names = T) %>%
  str_subset("[.][R]$") %>%
  sapply(function(x) x %>% readLines() %>% length()) %>%
  sum()

I wanted to count the lines of codes in my .Rmd files as well and I tried this code:

# Count your lines of R code
list.files(path = "/Users/", recursive = T, full.names = T) %>%
  str_subset("[.][Rmd]$") %>%
  sapply(function(x) x %>% readLines() %>% length()) %>%
  sum()

I also tried using .R OR .Rmd but this is not working either:

str_subset("[.][R]$|[.][Rmd]$")

Any suggestions?

Answer 1

Your regex is off :)
Try str_subset("\.Rmd$")