Shiny: data.frame bedingtes Format

Question

ich eine glänzende Anwendung haben und ich möchte eine tableOutput mit dem folgenden data.frame erstellen:

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

In der App gibt es eine numericInput namens Eingang $ -Zeichen und ich würde gerne fett die Zellen der Spalte Y machen, wenn der Wert kleiner ist als diese Eingabe.

Ich habe versucht, ein Datentabelle Objekt verwenden, aber es erscheint nicht in der Anwendung, und ich weiß nicht warum. Ich habe es mit dem folgenden Code erstellt:

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

Vielen Dank.

Answer 1

Ich weiß nicht, wo Sie Probleme haben, aber siehe Beispiel arbeiten

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)