Блестящий: условный формат data.frame

У меня есть приложение Shiny, и я хочу создать tableOutput, используя следующий data.frame:

data <- data.frame(X=c('A','B','C','D'),Y=c(1,5,7,3))

В приложении есть числовой ввод с именем input $ sign, и я хотел бы выделить жирным ячейки столбца Y, если значение меньше этого ввода.

Я пробовал использовать объект с данными, но он не отображается в приложении, и я не знаю почему. Я создал его с помощью следующего кода:

data <- datatable(data, options=list(searching=F, paging=F,autoWidth = T)) %>% 
            formatStyle("Y", fontWeight = styleInterval(input$sign,c('bold', 'weight')))

Спасибо.


r format shiny dt
person Marta    schedule 30.06.2016    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Не знаю, где у вас проблемы, но вижу рабочий пример

library(shiny)
library(DT)
data <- data.frame(X=c('A','B','C','D'),Y=c(1,5,7,3))
server=shinyServer(function(input, output) {

  output$tt=DT::renderDataTable(
    datatable(data, options=list(searching=F, paging=F,scrollX = T)) %>% 
      formatStyle("Y", fontWeight = styleInterval(input$sign,c('bold', 'weight')))

  )

})

ui=shinyUI(
  fluidPage(
    numericInput("sign","sign",0),
    DT::dataTableOutput("tt")
  )
)

shinyApp(ui,server)
person Batanichek    schedule 05.07.2016