Defining [FilterMultiRow] function to add in hackmaggedon parser

master4_cs22
1 parent 9282ab31
Showing 1 changed file with 22 additions and 3 deletions
ISO27001effectiveness/R/Hackmageddon_Parser.R
@@ -66,9 +66,28 @@ ProcessHMRaw &lt;- function(dataset.raw, dateOffset){
   dataset
 }
  
-FilterMultiCountry <- function(dataset) {
-  multi <- dataset[grepl(" ",Attacks$Country),]
-  #TODO
+FilterMultiCountry <- function(dataset.pre) {
+  multi <- dataset.pre[grepl(" ",dataset.pre$Country),]
+
+  dataset <- dataset.pre[!grepl(" ",dataset.pre$Country),]
+
+  for (i in 1:nrow(multi)) {
+    crow <- multi[i,]
+
+    country_s <- strsplit(toString(crow$Country), " ")
+
+    for (j in 1:length(country_s)) {
+      Date <- crow[1]
+      Attack <- crow[2]
+      Target <- crow[3]
+      Country <- country_s[[1]][j]
+      new.row <- data.frame(Date, Attack, Target, Country)
+      print(new.row)
+      dataset <- rbind(dataset, new.row)
+    }
+  }
+
+  dataset
 }
  
 #' Parse every excel file into a folder