Question

我在我的Shiny应用程序中使用了一个无法正常工作的复选框（无法更新）。

我试图找到问题的根源，并发现当我写第二个＆＃34; renderUi＆＃34;函数在我的代码中输出（输出$ secondSelectionVarIllu，服务器中的第二个函数）：当我删除它时，复选框可以工作。

有谁知道为什么？

我的代码中有什么问题？

PS：我使用renderUi，因为如果我在ui中写入sliderInput，我就不能实现包含＆＃34;输入$ choix_var＆＃34;在参数中。如果还有其他解决方案，它也可以删除问题，即使我想了解复选框的这个问题！

PS2：它不是数据问题，唯一不起作用的是复选框的TRUE / FALSE选项

非常感谢！

# Define UI ----
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(

      selectInput(inputId = "choix_var",label="Variables utilisées pour la construction des axes :",
                  choices=as.list(noms_var),multiple=T),

      uiOutput("secondSelectionNbAxes"),
      uiOutput("secondSelectionVarIllu"),

      checkboxInput(inputId = "aff_histo_vp","Affichage de l'histogramme des valeurs propres",TRUE)
   ),

    mainPanel(
        conditionalPanel(condition = "input.aff_histo_vp",
             plotOutput("histo_vp")            
        )
    )
  )
)


# Define server ----
server <- function(input, output) {

  output$secondSelectionNbAxes <- renderUI({
    sliderInput(inputId = "nb_axes",label="Choix du nombre de composantes principales :",
                min=2,max=length(input$choix_var),value=2,step=1)
  })

  output$secondSelectionVarIllu <- renderUI({
    conditionalPanel(condition="length(input$choix_var) < nb_var",
                     selectInput(inputId = "choix_var_illu",label="Variables illustratives :",
                                 choices=names(data_acp_cr)[which(!names(data_acp_cr) %in% names(data_acp_cr[,which(names(data_acp_cr) %in% input$choix_var)]))],multiple=T))
  }) 

  output$histo_vp <- renderPlot({
     acp <- dudi.pca(data_acp_cr[,which(names(data_acp_cr) %in% input$choix_var)],scannf = F,nf=input$nb_axes) 
    fviz_eig(acp,main="Histogramme des valeurs propres") 
  })
}

当我在Shiny上使用几个renderUi时，Checkbox不起作用

0 个答案: