R arquivo de texto de linha total

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