Question

使用dueling button上的RStudio教程，我设置了数据切换。其中一个按钮是默认的，因此应该看起来＆＃34;活跃＆＃34;当页面加载时（带有向内阴影）。点击另一个按钮后，＆＃34;激活＆＃34;状态需要在两个按钮之间切换。

是否可以用Shiny实现这个？

Answer 1

不确定这是否是最干净的方式，但绝对可以完成工作。获得了引导类here：

library(shiny)

shinyApp(
  ui = shinyUI(bootstrapPage(
    uiOutput("camera_one"),
    uiOutput("camera_two")
  )),
  server=shinyServer(function(input, output, session){

    v <- reactiveValues(btn_class_c1 = NULL, btn_class_c2 = NULL)

    observeEvent(input$btn1, {
      v$btn_class_c1 <- "btn-primary"
      v$btn_class_c2 <- "btn-default"
    })

    observeEvent(input$btn2, {
      v$btn_class_c1 <- "btn-default"
      v$btn_class_c2 <- "btn-primary"
    })  

    output$camera_one <- renderUI({
      actionButton("btn1", "Camera One", class=v$btn_class_c1)
    })

    output$camera_two <- renderUI({
      actionButton("btn2", "Camera Two", class=v$btn_class_c2)
    })

  })
)

将决斗按钮渲染为＆＃34;激活＆＃34;在闪亮

1 个答案: