R/processTables.r

In tmcd82070/tex2rmd: Latex to Rmd Conversion

#' @title processTables
#'
#' @description Process the tables in a Latex file vector and
#' put into Rmd format
#'
#' @param x A vector of lines from the Latex file
#'
#' @return A vector of lines with latex tables replace by something
#' that will render a Rmd table
#'
#' @export
processTables <- function(x){

  # First process any tables in table environments
  tabNum <- 1
  repeat{
    beginTable <- regexpr("\\\\begin\\{table\\}", x)
    endTable <- regexpr("\\\\end\\{table\\}", x)

    beginTable <- which(beginTable > 0)
    endTable   <- which(endTable > 0)

    if(length(beginTable)==0){
      break
    }

    rmdTable <- processOneTable(x, beginTable[1], endTable[1], tabNum)
    x <- c( x[1:(beginTable[1]-1)], rmdTable, x[(endTable[1]+1):length(x)])
    tabNum <- tabNum + 1
  }

  # Now process any tabular environments in text by themselves
  repeat{
    beginTable <- which(regexpr("\\\\begin\\{tabular\\}", x)>0)
    endTable <- which(regexpr("\\\\end\\{tabular\\}", x)>0)

    beginFig <- which(regexpr("\\\\begin\\{figure\\}", x)>0)
    endFig <- which(regexpr("\\\\end\\{figure\\}", x)>0)

    if(length(beginFig)>0){
      repeat{
        if( length(beginTable) > 0){
          inAFig <- (beginFig < beginTable[1]) & (endTable[1] < endFig)
          if( any(inAFig) ){
            # tabular is imbedded in a figure, do nothing
            beginTable <- beginTable[-1]
            endTable <- endTable[-1]
          } else {
            break
          }
        } else {
          break
        }
      }
    }

    if(length(beginTable)==0){
      break
    }

    rmdTable <- processOneTable(x, beginTable[1], endTable[1], NA)
    x <- c( x[1:(beginTable[1]-1)], rmdTable, x[(endTable[1]+1):length(x)])
  }

  x
}