commit f8f061617eee795fe3f7ddccfb10bf2ff2d8ac97
author Dan Chaltiel <dan.chaltiel@gmail.com> Tue Aug 04 00:33:55 2020 +0200
committer GitHub <noreply@github.com> Tue Aug 04 00:33:55 2020 +0200
tree 9e8ac5e3c1e11d6dfd4842e734b1c4adea36ba67
parent c0d3029d74d24741841ea6e7ead0cd40ddb9cc48

yet another bugfix

Always move backward in an array when you are removing something, I should know by now...

R/remove_column.R

diff --git a/R/remove_column.R b/R/remove_column.R
index 4e17507..3847d95 100644
--- a/R/remove_column.R
+++ b/R/remove_column.R
@@ -56,7 +56,7 @@
     
     for(i in 1:body_nrows){
         target_row <- xml2::xml_child(kable_tbody, i)
-        for(j in columns){
+        for(j in rev(columns)){
             target_cell <- xml2::xml_child(target_row, j)
             if(rowspan[i,j]==1)
             xml2::xml_remove(target_cell)