", escape_html_text(code), "")
link <- if (code %in% names(reference_links)) reference_links[[code]] else NA_character_
if (!is.na(link)) {
return(paste0('', code_html, ""))
}
return(code_html)
}
escape_html <- function(x) {
x <- as.character(x)
matches <- gregexpr("`[^`]+`", x, perl = TRUE)[[1]]
if (matches[1] == -1L) {
return(escape_html_text(x))
}
match_lengths <- attr(matches, "match.length")
pieces <- character(0)
position <- 1L
for (j in seq_along(matches)) {
match_start <- matches[j]
match_end <- match_start + match_lengths[j] - 1L
if (match_start > position) {
pieces <- c(pieces, escape_html_text(substr(x, position, match_start - 1L)))
}
code <- substr(x, match_start + 1L, match_end - 1L)
pieces <- c(pieces, format_code_span(code))
position <- match_end + 1L
}
if (position <= nchar(x)) {
pieces <- c(pieces, escape_html_text(substr(x, position, nchar(x))))
}
return(paste0(pieces, collapse = ""))
}
format_model_column <- function(model_column) {
link <- model_column_links[[model_column]]
if (length(link) == 2L) {
return(paste0(
'bPET/',
'bPEESE'
))
}
return(paste0(
'',
escape_html_text(model_column),
""
))
}
topic_runs <- rle(rows$Topic)
topic_start <- cumsum(c(1L, head(topic_runs$lengths, -1L)))
topic_span <- rep(0L, nrow(rows))
topic_span[topic_start] <- topic_runs$lengths
cat('| Topic | ') cat('Feature | ') for (model_column in model_columns) { cat('', format_model_column(model_column), " | ", sep = "") } cat("
|---|---|---|
| ', escape_html(rows$Topic[i]), " | ", sep = "" ) } cat('', escape_html(rows$Feature[i]), " | ", sep = "") for (model_column in model_columns) { cat('', rows[[model_column]][i], " | ", sep = "") } cat("