Início / coding / Perguntas / 77639379
Accepted
firmo23
Asked: 2023-12-11 19:54:35 +0800 CST

Faça a escolha de um widget brilhante desabilitado para os outros 3 widgets brilhantes

  • 772

Tenho o shinyaplicativo abaixo com 4 entradas. Eles contêm todas as variáveis ​​do mtcarsconjunto de dados. Agora quero que se um valor selecionado por exemplo em uma entrada (por exemplo mpg na 1ª) esse valor não possa ser escolhido em nenhuma outra entrada. Portanto, toda vez que essas 4 entradas terão um valor diferente selecionado.

library(shiny)
library(shinydashboard)

choices <- c("Pop", "RC", "RT","R4")

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    selectInput("Pr", "Select the price for analysis", choices = choices, multiple = F, selected = choices[1]),
    selectInput("Pr2", "Select the price for analysis", choices = choices, multiple = F, selected = choices[2]),
    selectInput("Pr3", "Select the price for analysis", choices = choices, multiple = F, selected = choices[3]),
    selectInput("Pr4", "Select the price for analysis", choices = choices, multiple = F, selected = choices[4])
    
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  observeEvent(input$Pr, {
    updateSelectInput(session, "Pr2", choices = choices[!choices %in% input$Pr])
  })
  observeEvent(input$Pr3, {
    updateSelectInput(session, "Pr2", choices = choices[!choices %in%input$Pr3])
  })
  observeEvent(input$Pr4, {
    updateSelectInput(session, "Pr2", choices = choices[!choices %in%input$Pr4])
  })
  observeEvent(input$Pr2, {
    updateSelectInput(session, "Pr", choices = choices[!choices %in% input$Pr2])
  })
  observeEvent(input$Pr3, {
    updateSelectInput(session, "Pr", choices = choices[!choices %in% input$Pr3])
  })
  observeEvent(input$Pr4, {
    updateSelectInput(session, "Pr", choices = choices[!choices %in% input$Pr4])
  })
  observeEvent(input$Pr, {
    updateSelectInput(session, "Pr3", choices = choices[!choices %in% input$Pr])
  })
  observeEvent(input$Pr2, {
    updateSelectInput(session, "Pr3", choices = choices[!choices %in% input$Pr2])
  })
  observeEvent(input$Pr4, {
    updateSelectInput(session, "Pr3", choices = choices[!choices %in% input$Pr4])
  })
  observeEvent(input$Pr, {
    updateSelectInput(session, "Pr4", choices = choices[!choices %in% input$Pr])
  })
  observeEvent(input$Pr2, {
    updateSelectInput(session, "Pr4", choices = choices[!choices %in% input$Pr2])
  })
  observeEvent(input$Pr3, {
    updateSelectInput(session, "Pr4", choices = choices[!choices %in% input$Pr3])
  })
}

shinyApp(ui, server)

1 respostas

  1. Best Answer

    Experimente isso

    library(shiny)
library(shinydashboard)

choices <- names(mtcars) # c("Pop", "RC", "RT","R4")

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    selectInput("Pr", "Select the price for analysis", choices = choices, multiple = F, selected = choices[1]),
    selectInput("Pr2", "Select the price for analysis", choices = choices, multiple = F, selected = choices[2]),
    selectInput("Pr3", "Select the price for analysis", choices = choices, multiple = F, selected = choices[3]),
    selectInput("Pr4", "Select the price for analysis", choices = choices, multiple = F, selected = choices[4])
    
  ),
  dashboardBody()
)

server <- function(input, output, session) {
  observeEvent(input$Pr, {
    choices1 <- choices[!choices %in% input$Pr]
    if (c(input$Pr) %in% input$Pr2) updateSelectInput(session, "Pr2", selected = choices1[1])
    choices2 <- choices[!choices %in% c(input$Pr,input$Pr2)]
    if (sum(c(input$Pr,input$Pr2) %in% input$Pr3)>0) updateSelectInput(session, "Pr3", selected = choices2[1])
    choices3 <- choices[!choices %in% c(input$Pr,input$Pr2,input$Pr3)]
    if (sum(c(input$Pr,input$Pr2,input$Pr3) %in% input$Pr4)>0) updateSelectInput(session, "Pr4", selected = choices3[1])
  })
  
  observeEvent(input$Pr2, {
    choices1 <- choices[!choices %in% input$Pr2]
    if (c(input$Pr) %in% input$Pr2) updateSelectInput(session, "Pr", selected = choices1[1])
    choices2 <- choices[!choices %in% c(input$Pr,input$Pr2)]
    if (sum(c(input$Pr,input$Pr2) %in% input$Pr3)>0) updateSelectInput(session, "Pr3", selected = choices2[1])
    choices3 <- choices[!choices %in% c(input$Pr,input$Pr2,input$Pr3)]
    if (sum(c(input$Pr,input$Pr2,input$Pr3) %in% input$Pr4)>0) updateSelectInput(session, "Pr4", selected = choices3[1])
  })
  
  observeEvent(input$Pr3, {
    choices1 <- choices[!choices %in% input$Pr3]
    if (c(input$Pr3) %in% input$Pr2) updateSelectInput(session, "Pr2", selected = choices1[1])
    choices2 <- choices[!choices %in% c(input$Pr3,input$Pr2)]
    if (sum(c(input$Pr3,input$Pr2) %in% input$Pr)>0) updateSelectInput(session, "Pr", selected = choices2[1])
    choices3 <- choices[!choices %in% c(input$Pr,input$Pr2,input$Pr3)]
    if (sum(c(input$Pr,input$Pr2,input$Pr3) %in% input$Pr4)>0) updateSelectInput(session, "Pr4", selected = choices3[1])
  })
  
  observeEvent(input$Pr4, {
    choices1 <- choices[!choices %in% input$Pr4]
    if (c(input$Pr4) %in% input$Pr2) updateSelectInput(session, "Pr2", selected = choices1[1])
    choices2 <- choices[!choices %in% c(input$Pr4,input$Pr2)]
    if (sum(c(input$Pr4,input$Pr2) %in% input$Pr3)>0) updateSelectInput(session, "Pr3", selected = choices2[1])
    choices3 <- choices[!choices %in% c(input$Pr4,input$Pr2,input$Pr3)]
    if (sum(c(input$Pr4,input$Pr2,input$Pr3) %in% input$Pr)>0) updateSelectInput(session, "Pr", selected = choices3[1])
  })

}

shinyApp(ui, server)
    • 1

relate perguntas