avoid unneccesary loops because of comments or linebreaks in xml file

2015-01-18 22:59:59 +01:00
parent 24f5b02221
commit 4693f8571e
1 changed files with 3 additions and 3 deletions
@@ -45,9 +45,9 @@ for(d in 1:nrow(issues)) {
    curid <- as.character(tweets_curday$id_str[t])
    
    # Now test each single issue (not tag!)
-    for(i in 1:length(issuelist)) {
-      curtags <- as.character(issuelist[[i]])
-      curissue <- names(issuelist)[i]
+    for(i in 1:length(issueheads)) {
+      curissue <- issueheads[i]
+      curtags <- as.character(issuelist[[curissue]])  
      curfile <- str_c(id_folder,"/",curissue,".csv")

      # Now test all tags of a single issue