Отображение строки тегов, возвращаемых функцией

Question

У меня есть функция, которая создает таблицу HTML и возвращает код в виде строки. Я вызываю эту функцию из renderUI и выводу в виде HTML, но HTML не анализируется, я получаю только строку как простой текст в выводе. Нужно ли что-нибудь добавить к моему вызову функции?

ui <- fluidPage(

    fluidRow(
        column(width=3),
        column(width=6, htmlOutput('table')),
        column(width=3)
    )
)

server <- function(input, output) {

tables <- data.frame(c("exmpl1", "exmpl2"), c("abc", "def"))

        output$table <- renderUI({
            create.table(tables)
        })
}

create.table = function(tables) {
  rowCount <- c(1:nrow(tables))
  htmlTbl <-
    paste(
      "tags$table(
             tags$tr(
               tags$th('Col1'),
               tags$th('Col2'),
               tags$th('Col3')
             ),"
    )
  for (val in rowCount) {
    htmlTbl <- paste(htmlTbl,"tags$tr(
      tags$td(checkboxInput('check",val,"', NULL)),
      tags$td(tables[",val,", 1]),
      tags$td(tables[",val,", 2]))"
    )

  if (val != length(rowCount))
      htmlTbl <- paste(htmlTbl,",")
  }

  htmlTbl <- paste(htmlTbl,")")

  return(htmlTbl)
}