remove unnecessary as.character call from adorn_totals("row")

closes #118
sfirke · May 22, 2017 · bacdf88 · bacdf88
1 parent 68466f1
commit bacdf88
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/add_totals.R b/R/add_totals.R
@@ -35,8 +35,8 @@ adorn_totals <- function(dat, which = c("row", "col"), fill = "-", na.rm = TRUE)
 
     col_totals[nrow(col_totals), 1] <- "Total" # replace final row, first column with "Total"
     dat <- dplyr::bind_rows(dat %>%
-                              stats::setNames(names(dat)) %>%
-                              dplyr::mutate_at(1, as.character), col_totals)
+                              stats::setNames(names(dat)),
+                            col_totals)
   }
 
   if("col" %in% which){