R Fichier texte total de ligne

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