Question

我正在使用Shiny一段时间，最近开始使用CSS自定义我的应用程序非常酷。当指针越过特定元素时，我设法显示一个消息框，但现在我想显示一个变量。例如，在下面的应用程序中，当鼠标进入滑块按钮时，在消息框内我想计算滑块值，即“输入$ test”：

#### 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)))
})

})

RShiny-CSS反应消息

1 个答案: