R Shiny: форматирование текста внутри таблицы

Question

Рассмотрим следующее очень простое блестящее приложение, которое выводит таблицу текста, хранящуюся в кадре данных df:

library(shiny)

df <- data.frame(id=1:3,
                   text=c('It was a good day today', 'It is good to hear from you', 'I am feeling good'),
                   stringsAsFactors = FALSE)

ui <- fluidPage(
  tableOutput("freetext")
)

server <- function(input, output){
  output$freetext <- renderTable({ df })
}

shinyApp(ui=ui, server=server)

Мне бы хотелось, чтобы слово "хорошо" в каждой строке отображалось красным цветом. Возможно ли это с помощью tableOutput?

Я видел такие посты, как эта , в которых предлагается заменить textOutput на htmlOutput в функции ui, но я не уверен, как расширить это до таблицы текста.

Answer 1

Если вы используете htmlTable, вы можете включить HTML в таблицу. Например:

library(shiny)
library(htmlTable)

df <- data.frame(
  id=1:3,
  text=c('It was a <span style="color:red;">good</span> day today', 
         'It is good to hear from you', 
         'I am feeling good'),
  stringsAsFactors = FALSE)

ui <- fluidPage(
  htmlTableWidgetOutput("freetext")
)

server <- function(input, output){
  output$freetext <- renderHtmlTableWidget({ 
    htmlTableWidget(df) 
  })
}

shinyApp(ui=ui, server=server)