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?
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…