R Total Line Text File

con <- file("some_file.format") 
length(readLines(con))
Panicky Pony