update news
diff --git a/R/remove_column.R b/R/remove_column.R
index aac4b9b..3bff2f1 100644
--- a/R/remove_column.R
+++ b/R/remove_column.R
@@ -87,39 +87,6 @@
# not very efficient but for finite task it's probably okay
columns <- (columns - 1)[-1]
}
-
- # head_row <- xml2::xml_child(kable_thead, xml2::xml_length(kable_thead))
- # ncols <- xml2::xml_length(head_row)
- # body_nrows <- xml2::xml_length(kable_tbody)
- #
- # rowspan = matrix(1, nrow = body_nrows, ncol=ncols)
- # for(i in 1:body_nrows){
- # target_row <- xml2::xml_child(kable_tbody, i)
- # target_ncols <- xml2::xml_length(target_row)
- # for(j in 1:target_ncols){
- # target_cell <- xml2::xml_child(target_row, j)
- # span <- as.numeric(xml2::xml_attr(target_cell, "rowspan"))
- # span[is.na(span)] <- 0
- # if(span>0){
- # rowspan[i,j]=1
- # rowspan[i+seq(from=1, to=span-1),j]=0
- # }
- # }
- # }
- #
- # for(i in 1:body_nrows){
- # target_row <- xml2::xml_child(kable_tbody, i)
- # for(j in rev(columns)){
- # target_cell <- xml2::xml_child(target_row, j)
- # if(rowspan[i,j]==1)
- # xml2::xml_remove(target_cell)
- # }
- # }
- #
- # for(j in columns){
- # target_cell_head <- xml2::xml_child(head_row, j)
- # xml2::xml_remove(target_cell_head)
- # }
out <- as_kable_xml(kable_xml)
attributes(out) <- kable_attrs
if (!"kableExtra" %in% class(out))
diff --git a/inst/NEWS.md b/inst/NEWS.md
index bc7140e..2a75d00 100644
--- a/inst/NEWS.md
+++ b/inst/NEWS.md
@@ -21,9 +21,13 @@
* Fixed a bug with `collapse_rows` when text is too long. (#464)
+* Added a new function `remove_column` for html. The latex part hasn't been
+implemented yet. (#490, thanks @DanChaltiel)
-kableExtra 1.1.0
+
+kableExtra ]
+1.1.0
--------------------------------------------------------------------------------
# Major Changes