RShiny-CSS被動消息

Question

我正在使用Shiny一段時間，最近開始用CSS定製我的應用，這非常酷。當指針經過一個特定的元素時，我設法顯示一個消息框，但現在我想顯示一個變量。例如，在當鼠標上的滑塊按鈕下面的應用程序，消息框裏面我想計算滑塊值即「輸入$測試」：

#### ui.R 

shinyUI(fluidPage(
tags$head(tags$style(HTML(' 

         .irs.js-irs-0.irs-with-grid .irs-slider.single:hover:after { 
         content: "SLIDER VALUE HERE"; 
         background: #333; 
         background: rgba(0,0,0,.8); 
         border-radius: 5px; 
         bottom: 26px; 
         color: #fff; 
         left: 20%; 
         padding: 5px 15px; 
         position: absolute; 
         width: 220px; 
         text-align: center; 
         } 

         '))), 

sliderInput("test", "TEST:", 
      min=0, max=1000, value=500) 
)) 

#### server.R 

library(shiny) 
shinyServer(function(input, output) { 
}) 

感謝您的幫助。

Answer 1

好這個作品，希望它能幫助別人：

#### ui.R 

shinyUI(fluidPage(


    uiOutput("htmltest"), 

    sliderInput("test", "TEST:", 
      min=0, max=1000, value=500) 

)) 

#### server.R 

shinyServer(function(input, output) { 


output$htmltest <- renderUI({ 
    txtx=paste('.irs.js-irs-0.irs-with-grid .irs-slider.single:hover:after { 
         content: "',input$test,'"; 
     background: #333; 
     background: rgba(0,0,0,.8); 
     border-radius: 5px; 
     bottom: 26px; 
     color: #fff; 
     left: 20%; 
     padding: 5px 15px; 
     position: absolute; 
     width: 220px; 
     text-align: center; 
}',sep="") 

    tags$head(tags$style(HTML(txtx))) 
}) 

})