avoid unneccesary loops because of comments or linebreaks in xml file
This commit is contained in:
@@ -45,9 +45,9 @@ for(d in 1:nrow(issues)) {
|
|||||||
curid <- as.character(tweets_curday$id_str[t])
|
curid <- as.character(tweets_curday$id_str[t])
|
||||||
|
|
||||||
# Now test each single issue (not tag!)
|
# Now test each single issue (not tag!)
|
||||||
for(i in 1:length(issuelist)) {
|
for(i in 1:length(issueheads)) {
|
||||||
curtags <- as.character(issuelist[[i]])
|
curissue <- issueheads[i]
|
||||||
curissue <- names(issuelist)[i]
|
curtags <- as.character(issuelist[[curissue]])
|
||||||
curfile <- str_c(id_folder,"/",curissue,".csv")
|
curfile <- str_c(id_folder,"/",curissue,".csv")
|
||||||
|
|
||||||
# Now test all tags of a single issue
|
# Now test all tags of a single issue
|
||||||
|
|||||||
Reference in New Issue
Block a user