print the first n lines
of a file.
Examples
f <- system.file(package = "fpeek",
"datafiles", "test-tab.csv")
peek_head(f, n = 4)
#> name age city
#> "Alice" 30 "New York"
#> "Bob" 25 "Los Angeles"
#> "Charlie" 35 "Chicago"
peek_head(f, n = 4, intern = TRUE)
#> [1] "name\tage\tcity" "\"Alice\"\t30\t\"New York\""
#> [3] "\"Bob\"\t25\t\"Los Angeles\"" "\"Charlie\"\t35\t\"Chicago\""
