选中时突出显示R闪亮按钮的边框或颜色

让·贝尔汀

有人知道选中该按钮时如何突出显示边框或颜色吗?

请在下面找到可复制的示例

library(shiny)

ui <- fluidPage(
  actionButton(inputId = "button1", label = "Select red"),
  actionButton(inputId = "button2", label = "Select blue"),
  plotOutput("distPlot")
)


server <- function(input, output) {
    r <- reactiveValues(my_color = "green")

    output$distPlot <- renderPlot({
      x <- faithful[, 2]
      bins <- seq(min(x), max(x))
      hist(x, breaks = bins, col = r$my_color)
    })

   observeEvent(input$button1, {
      r$my_color <- "red"
    })

  observeEvent(input$button2, {
    r$my_color <- "blue"
   })
}

shinyApp(ui = ui, server = server)

这是上面的代码得到的结果:

在此处输入图片说明

这里是什么,我想获得按钮时beeing选择“选择红”(请注意,选择时更应突出另一种):

在此处输入图片说明

如果不可能,选择时是否存在改变按钮颜色的方法?

提前致谢

西蒙·拉森(Simon Larsen)

您可以使用Shinyjs在按钮上添加/删除CSS类在这里,我使用btn-primaryBootstrap中类将按钮设置为蓝色,但是您也可以添加自己的样式。

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  actionButton(inputId = "button1", label = "Select red"),
  actionButton(inputId = "button2", label = "Select blue"),
  plotOutput("distPlot")
)


server <- function(input, output) {
  r <- reactiveValues(my_color = "green")

  output$distPlot <- renderPlot({
    x <- faithful[, 2]
    bins <- seq(min(x), max(x))
    hist(x, breaks = bins, col = r$my_color)
  })

  observeEvent(input$button1, {
    removeClass("button2", "btn-primary")
    addClass("button1", "btn-primary")
    r$my_color <- "red"
  })

  observeEvent(input$button2, {
    removeClass("button1", "btn-primary")
    addClass("button2", "btn-primary")
    r$my_color <- "blue"
  })
}

shinyApp(ui = ui, server = server)

结果

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章

选中时更改单选按钮的边框颜色

选中或突出显示时全局更改 UIBarButtonItem 文本颜色

单击时突出显示图像,然后选中单选按钮

更改突出显示的UIButton边框颜色

闪亮的R:更改selectInput的边框颜色

如何在Flutter中更改大纲按钮的边框突出显示颜色?

更改“ DialogPreference”的突出显示颜色(按钮颜色)

增加突出显示的按钮边框厚度 (GNOME)

两个输入字段都匹配时突出显示边框颜色

选中时,单选按钮作为选项卡突出显示(Android Studio)

选中时突出显示表格行

更改多个按钮的突出显示颜色后,单击时按钮会消失

未选中时更改单选按钮的颜色

选中单选按钮时的颜色操作

如何用角颜色突出显示选中的项目?

如何仅用选中的文本用颜色突出显示?

突出显示闪亮的文本

当鼠标移到按钮上以突出显示它时,按钮周围应该有一个黑色边框

单击按钮时更改边框颜色

当边框颜色设置为仅显示一种颜色时,为什么我的电子邮件按钮边框显示两种颜色?

如何自定义工具条按钮鼠标悬停时突出显示颜色

按下时具有渐变的Flutter按钮,其突出显示颜色

在属性检查器中未选中“带边框的”选项时,NSColorWell没有显示颜色面板吗?

将鼠标悬停在填充区域上时突出显示边框-Leaflet-R

如何保持单击 Primefaces 命令按钮时显示的底部边框颜色?

单击GestureDetector时如何突出显示颜色

突出显示时的 DataGridHyperlinkColumn 文本颜色

高位更改悬停时突出显示颜色

突出显示元素时更改链接的颜色