Extracting specific rows from each text files and store in one txt file

Question

This the txt files that I have.

I would like to extract row number 30 and 63 from each txt file and save it into one txt file. How can I solve this in R ? Could you p