Run a script to multiple files in the same directory

[Sara2]

knitr::opts_chunk$set(echo = TRUE)

#Hi. I need to run the script from A to E for all the text files in the same directory. This script
#doesn't work. Can someone help me? Thank you

files<-list.files(path = "~/Desktop/Zelos Enegy/Script project/Test_files2", pattern=.txt)
files
library(readr)
for(i in files){ 
  A<-read_table('~/Desktop/Zelos Enegy/Script project/Test_files2/'
                ,col_names = FALSE, skip = 68),
  B<-A[-c(1,2,13)],
  C<-B[29,5],
  D<-B[43,2],
  E<-data.frame(A,B),
  E
}

[nirgrahamuk]

@Sara2

, pattern=.txt)

this looks wrong, it should almost certainly be quoted

, pattern=".txt")

[Sara2]

Yes, sorry. Still I get stuck after the loop

[Sara2]

Error: unexpected ',' in:
" A<-read_table('~/Desktop/Zelos Enegy/Script project/Test_files2/'
,col_names = FALSE, skip = 68),

[nirgrahamuk]

the solution is provided in the error message.
you have commas fulfilling no purpose at the end of your lines.
remove them.

for(i in files){ 
  A<-read_table('~/Desktop/Zelos Enegy/Script project/Test_files2/'
                ,col_names = FALSE, skip = 68)
  B<-A[-c(1,2,13)]
  C<-B[29,5]
  D<-B[43,2]
  E<-data.frame(A,B)
  E
}

[Sara2]

@nirgrahamuk

for(i in files){ 
  A<-read_table('~/Desktop/Zelos Enegy/Script project/Test_files2/'
                ,col_names = FALSE, skip = 68)
  B<-A[-c(1,2,13)]
  C<-B[29,5]
  D<-B[43,2]
  E<-data.frame(A,B)
  E
}

Get this error
Error in file(con, "rb") : cannot open the connection
In addition: Warning messages:
1: In file(con, "rb") :
'raw = FALSE' but '/Users/sgalla/Desktop/Zelos Enegy/Script project/Test_files2' is not a regular file
2: In file(con, "rb") :
cannot open file '/Users/sgalla/Desktop/Zelos Enegy/Script project/Test_files2': it is a directory

[nirgrahamuk]

oh, you get i from list of files, but you dont use it anywhere...

  A<-read_table(file.path('~/Desktop/Zelos Enegy/Script project/Test_files2',i),
                col_names = FALSE, skip = 68)

[Sara2]

ok so with this:

files<-list.files(path = "~/Desktop/Zelos Enegy/Script project/Test_files2", pattern=".txt")
files
library(readr)
for(i in files){
A<-read_table(file.path('~/Desktop/Zelos Enegy/Script project/Test_files2/',i),
,col_names = FALSE, skip = 68)
B<-A[-c(1,2,13)]
C<-B[29,5]
D<-B[43,2]
E<-data.frame(A,B)
E
}

I am getting something. Not the result I want though.
I need the script to open each txt.file in the folder (skipping the first 68 lines for each file), delete those three columns, and go get the value for two specific cells. I would like it just to print me this two values for all the txt files in the folder. Do you think it's possible?