#' delete special characters 
for(files in list.files(path = "../Crawler/guardian_data/",full.names = T)){
  load(files)

for(i in 1:dim(data)[1]){
  data[i,6]<-gsub("[^0-9A-Za-z///'\\.\\,\"-;: ]","" , data[i,6] ,ignore.case = TRUE)
  print(i)
  
}
  save(data,file=files)
}





























































































