3

Shinyjs パッケージを使用しているときに、光沢のあるアプリのラジオ ボタン (「トレンド」) を無効にしようとしinput$Product !=A && input$month !="All"ていますが、失敗しました。

私のUIページは次のように定義されています：

ui <- fluidPage(
   shinyjs::useShinyjs(),
   pageWithSidebar(
   titlePanel("Analytics"),

    sidebarPanel(
      selectInput("product",
              label = "Choose a Product",
              choices = list("A", "B", "C", "All")),

      selectInput("month",
              label = "Choose TimeFrame",
              choices = list("June", "July", "August", "September", "All")),

      radioButtons('ptype', label ="Plot Type",
                c(Histogram = 'histogram',
                  Box = 'boxp',
                  Trend = 'trendp')
               )

),

私のサーバー側のコード:

 shinyServer(function (input, output, session) {

  mydata<- read.csv("mydataQ1fy16.csv")

  observe({shinyjs::toggleState("trendp", input$product != "A" && input$month != "All") })    

    getMonthproduct <- reactive( {
      if(input$month != "All" &input$product !="All") {
         plotdata <- mydata %>% filter(Product ==input$product, Monthly ==input$month)} 

       else if (input$month =="All" & input$product =="All") {
         plotdata <- mydata
          }
         else if(input$product == "All") {
           plotdata <- mydata %>% filter(Monthly == input$month)

         }
          else if(input$month == "All") {
            plotdata <- mydata %>% filter(Product == input$product)

           }
     return(plotdata)
     })
4

1 に答える 1

4

これはかなり古い問題ですが、今日同じ問題に遭遇しshinyjs、基本的な方法で解決しましjQueryた。これは少しハッキーな解決策ですが、私にとってはうまくいきます：

ソリューションは次のようになります。

observe({
    if (input$product != "A" && input$month !="All") {
        shinyjs::disable(selector = "[type=radio][value=trendp]")
        shinyjs::runjs("$('[type=radio][value=trendp]').parent().parent().addClass('disabled').css('opacity', 0.4)")
    }
})

最初の行は実際のボタンを無効にし、2 番目の行はラベルを無効にして「無効な外観」にします。

于 2016-10-26T10:31:52.810 に答える