tracks/r/exercises/tournament/example.R in trackler-2.1.0.9 vs tracks/r/exercises/tournament/example.R in trackler-2.1.0.10

@@ -19,14 +19,11 @@
         results <- rbind(results, c(match[2], 1, 1, 0, 0, 3), c(match[1], 1, 0, 0, 1, 0))
       }
     }
     
   }
-  results$MP <- as.numeric(results$MP)
-  results$W <- as.numeric(results$W)
-  results$D <- as.numeric(results$D)
-  results$L <- as.numeric(results$L)
-  results$P <- as.numeric(results$P)
+  
+  results[,2:6] <- sapply(results[,2:6], as.numeric)
   
   output <- aggregate(.~Team, results[-1,], sum)
   output <- output[order(-output$P,output$Team), ]
   row.names(output) <- 1:nrow(output)
   output