# NOT RUN {
# Create temporary filename
tmpcsv <- tempfile(fileext="csv")
# Generate file
writeLines(letters[1:20], con=tmpcsv)
# Count the lines
determine_nlines(tmpcsv)
# Cleanup
file.remove(tmpcsv)
# }
Run the code above in your browser using DataLab