R/utf8_replacements.R

In kapsner/sjtable2df: Convert 'sjPlot' HTML-Tables to R 'data.frame'

# Convert 'sjPlot' HTML-tables to R data.frame
# Copyright (C) 2021  Lorenz A. Kapsner
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.


utf_replacement_list <- list(
  "03C4" = paste0(
    "$", rlang::chr_unserialise_unicode("<U+03C4>"), "_{00}$"
  ),
  "03C3" = paste0(
    "$", rlang::chr_unserialise_unicode("<U+03C3>"), "^2$"
  ),
  "R2" = "$R^2$"
)

utf_replacements <- function(vec, kable_mtab = FALSE) {
  for (item in names(utf_replacement_list)) {
    item_pattern <- ifelse(
      test = item %in% c("03C3", "03C4"),
      yes = rlang::chr_unserialise_unicode(paste0("<U+", item, ">")),
      no = item
    )
    row <- which(grepl(item_pattern, vec))
    if (length(row) > 0) {
      vec[row] <- gsub(
        pattern = item,
        replacement = utf_replacement_list[[item]],
        x = vec[row]
      )
    }
  }
  return(vec)
}