R/fixna.R

Defines functions fixNA

Documented in fixNA

#' @export
fixNA <- function(tt, na.string = "NA") {
  if (length(dim(tt)) == 1 || length(dim(tt)) == 2) rownames(tt)[is.na(rownames(tt))] <- na.string
  if (length(dim(tt)) == 2) colnames(tt)[is.na(colnames(tt))] <- na.string
  return(tt)
}
tobyjohnson/gtx documentation built on Aug. 30, 2019, 8:07 p.m.