blob: 280f04247babed859d0276df43c52e72ea65151e [file] [log] [blame]
Hao Zhu37975a32019-01-15 14:59:34 -06001#' Read HTML kable as XML
2#'
3#' @description This function will read kable as a xml file
4#'
5#' @param x kable or kableExtra object
6#'
7#' @export
8kable_as_xml <- function(x) {
9 read_kable_as_xml(x)
10}
11
12#' Convert XML back to kable
13#'
14#' @description Convert XML back to kable
15#'
16#' @param x XML table object
17#'
18#' @export
19xml_as_kable <- function(x) {
Hao Zhu84102ed2019-01-16 00:06:25 -060020 out <- as_kable_xml(x)
21 class(out) <- "kableExtra"
22 return(out)
Hao Zhu37975a32019-01-15 14:59:34 -060023}