Я пытаюсь добавить столбец значков в таблицу данных, которая отображается в приложении Shiny.По сути, я просто хочу стрелку вверх, когда данные пошли вверх, и стрелку вниз, когда они пошли вниз.Однако я не уверен, как отобразить значок.Когда я добавляю столбец, используя, например, icon("arrow-up")
, я получаю следующую ошибку:
Ошибка: метод по умолчанию не реализован для типа «список»
Я могуобратите внимание, что если я попробую этот подход за пределами Shiny, он отображает данные о значке, а не значок.
Одним из вариантов может быть использование подхода добавления его в качестве изображения - но кажется, что будет более прямой путь?Я также не уверен, как это сделать с помощью иконок Font Awesome.
Извиняюсь, если это основное - я не смог найти ответ!
Вот упрощенная версия того, что я делаю:
library(shiny)
library(shinydashboard)
number_compare <- data.frame(replicate(2, sample(1:100, 10, rep=TRUE)))
number_compare$direction <- ifelse(number_compare$X1 < number_compare$X2, "Up", "Down")
number_compare$direction <- ifelse(number_compare$X1 == number_compare$X2, "", number_compare$direction)
sidebar <- dashboardSidebar()
body <- dashboardBody(
fluidRow(box(width = 12, solidHeader = TRUE,
tableOutput("example_table"))
)
)
ui <- dashboardPage(dashboardHeader(title = "Example"),
sidebar,
body
)
server <- function(input, output) {
output$example_table <- renderTable(number_compare)
}
shinyApp(ui, server)