Fixed issue with recursion trying to parse XML that was already parse…

…d into a data frame.
cloudyr · Apr 21, 2016 · a3de49f · a3de49f
1 parent 4fdfb4d
commit a3de49f
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/GetBonuses.R b/R/GetBonuses.R
@@ -95,8 +95,7 @@ function(assignment = NULL,
         }
         Bonuses <- list()
         for (i in 1:length(hitlist)) {
-            b <- GetBonuses(hit = hitlist[i], return.all = return.all, ...)
-            Bonuses[[i]] <- as.data.frame.BonusPayments(xml.parsed = xmlParse(b$xml))
+          Bonuses[[i]] <- GetBonuses(hit = hitlist[i], return.all = return.all, ...)
         }
         out <- do.call('rbind.data.frame',Bonuses)
         if (verbose) {