R Total file teks baris

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