вывод форматера не появляется в блестящем

Question

Могу ли я заставить мое блестящее приложение использовать форматы, применяемые в форматере?

Первый столбец печатается зеленым цветом, если указан в списке, но не блестящим.

ft <- formattable(mtcars,
            list(mpg = formatter("span", style = "color:green")))

#mpg prints green here:
ft

app = shinyApp(
  ui = fluidPage(
    fluidRow(
      column(12,
             formattableOutput('table')

      )
    )
  ),
  server = function(input, output) {
    #but not here
    output$table <- renderFormattable({formattable(ft, list())})
      }
)

Answer 1

Вы вызываете функцию formattable дважды. Второй раз в приложении с пустым list(), не содержащим параметров формата. В основном вы перезаписываете формат, который вы определили ранее, пустым форматом. Для решения этой проблемы есть два варианта.

Один из них - определить вашу таблицу вне приложения и визуализировать вывод без переписывания формата:

output$table <- renderFormattable({ft})

Но также возможно определить таблицу и параметры формата внутри вашего сервера:

output$table <- renderFormattable({formattable(mtcars,
                                                   list(mpg = formatter("span", style = "color:green")))})