问闪亮:单击选项卡中的按钮会隐藏按钮/问题/单选按钮，并在相同的选项卡中显示结果。
EN

Stack Overflow用户

提问于 2022-01-31 18:37:49

回答 1查看 323关注 0票数 0

我有一个包含n个问题的选项卡，每个选项卡都与Likert风格的单选按钮相关。我想以多种不同的方式(情节等)显示选定的答案。而不切换到或创建其他选项卡。相反，我想在用于问题/单选按钮的同一个选项卡中显示结果--即按下按钮隐藏问题、单选按钮和提交按钮，并显示，例如，带有结果的绘图或表格。

我创建了一个MWE，说明了我目前的方法。由于我不知道如何最好地解决这个问题，所以我创建了三个不同的选项卡，名为Questions、Results和Hide，目的是隐藏Results选项卡，直到单击submit按钮，该按钮将显示Results选项卡并隐藏Questions选项卡。我还没有找到隐藏Questions选项卡的方法，这就是为什么我创建Hide选项卡作为测试的原因。

library(shiny)
library(shinyjs)

ui <- tagList(
    useShinyjs(),
    navbarPage(
        "Hide questions/buttons and display results in same tab",
        id = "navbar",
        tabPanel(title = "Questions",
                 id = "questions",
                 h1("Example questions"),
                 uiOutput("myradios"),
                 actionButton("button", "Run analysis")
        ),
        tabPanel(
            title = "Results",
            value = "results",
            tableOutput("tableOutput"),
            h1("Here are the results"),
            textOutput("txt")
        ),
        tabPanel(
            title = "Hide",
            value = "hide",
            h1("This tab will be hidden when the button in 'Questions' tab is clicked")
        )
    )
)

server <- function(input, output, session) {
    observe({
        hide(selector = "#navbar li a[data-value=results]")
        show(selector = "#navbar li a[data-value=hide]")
    })
    
    output$tableOutput <- renderTable({
        if(input$button > 0){
            toggle(selector = "#navbar li a[data-value=results]")
            toggle(selector = "#navbar li a[data-value=hide]")
        }else{
            NULL
        }
    })
    outputOptions(output, "tableOutput", suspendWhenHidden=F)
    
    nameList <- c("Q1", "Q2")
    questionList <- c("This is question 1", "This is question 2")
    
    all_radios <- list()
    for (i in 1:length(nameList)) {
        all_radios[[i]] <- p(radioButtons(nameList[i], questionList[i], c("Disagree strongly" = "1", "Disagree a little" = "2","Neutral; no opinion" = "3","Agree a little" = "4","Agree strongly" = "5"), inline=T, selected=0))
    }
    
    output$myradios <- renderUI(all_radios)
    
    output$txt <- renderText({
        return(paste("The answers are:", input$Q1, "and", input$Q2, sep=" "))
    })
    
    
}
shinyApp(ui = ui, server = server)

除了上面描述的显而易见的代码之外，这个代码还有很多错误。例如，单击submit按钮再次隐藏“结果”选项卡。

我将非常感谢任何帮助或指点。

编辑：

感谢@YBS的回答，这是一个工作解决方案，它在单击按钮后也隐藏了该按钮：

library(shiny)
library(shinyjs)

ui <- tagList(
    useShinyjs(),
    navbarPage(
        "Hide questions/buttons and display results in same tab",
        id = "navbar",
        tabPanel(title = "Questions",
                 id = "questions",
                 h1("Example questions"),
                 uiOutput("myradios"),
                 textOutput("txt"),
                 actionButton("button", "Run analysis")
        )
    )
)

server <- function(input, output, session) {
        
    nameList <- c("Q1", "Q2")
    questionList <- c("This is question 1", "This is question 2")
    
    all_radios <- list()
    for (i in 1:length(nameList)) {
        all_radios[[i]] <- p(radioButtons(nameList[i], questionList[i], c("Disagree strongly" = "1",
                                                                          "Disagree a little" = "2",
                                                                          "Neutral; no opinion" = "3",
                                                                          "Agree a little" = "4",
                                                                          "Agree strongly" = "5"),
                                          inline=T,
                                          selected=0))
    }
    
    output$myradios <- renderUI(all_radios)
    
    output$txt <- renderText({
        return(paste("The answers are:", input$Q1, "and", input$Q2, sep=" "))
    })
    
    
    observeEvent(input$button, {
        k <- input$button %% 2
        if (k==1) {
            hide("myradios")
            show("txt")
            hide("button")
        }else {
            show("myradios")
            hide("txt")
        }
    }, ignoreNULL = FALSE)
    
}
shinyApp(ui = ui, server = server)

shiny

radio-button

show-hide

shinyjs

回答 1

Stack Overflow用户

回答已采纳

发布于 2022-01-31 20:19:51

也许你在找这个。

library(shiny)
library(shinyjs)

ui <- tagList(
  useShinyjs(),
  navbarPage(
    "Hide questions/buttons and display results in same tab",
    id = "navbar",
    tabPanel(title = "Questions",
             id = "questions",
             h1("Example questions"),
             uiOutput("myradios"),
             textOutput("txt"),
             actionButton("button", "Run analysis")
    ),
    tabPanel(
      title = "Results",
      value = "results",
      tableOutput("tableOutput"),
      h1("Here are the results"),
      textOutput("txt1")
    ),
    tabPanel(
      title = "Hide",
      value = "hide",
      h1("This tab will be hidden when the button in 'Questions' tab is clicked")
    )
  )
)

server <- function(input, output, session) {
  observe({
    hide(selector = "#navbar li a[data-value=results]")
    show(selector = "#navbar li a[data-value=hide]")
  })
  
  output$tableOutput <- renderTable({
    if(input$button > 0){
      toggle(selector = "#navbar li a[data-value=results]")
      toggle(selector = "#navbar li a[data-value=hide]")
    }else{
      NULL
    }
  })
  outputOptions(output, "tableOutput", suspendWhenHidden=F)
  
  nameList <- c("Q1", "Q2")
  questionList <- c("This is question 1", "This is question 2")
  
  all_radios <- list()
  for (i in 1:length(nameList)) {
    all_radios[[i]] <- p(radioButtons(nameList[i], questionList[i], c("Disagree strongly" = "1", "Disagree a little" = "2","Neutral; no opinion" = "3","Agree a little" = "4","Agree strongly" = "5"), inline=T, selected=0))
  }
  
  output$myradios <- renderUI(all_radios)
  
  output$txt <- renderText({
    return(paste("The answers are:", input$Q1, "and", input$Q2, sep=" "))
  })
  output$txt1 <- renderText({
    return(paste("The answers are:", input$Q1, "and", input$Q2, sep=" "))
  })
  
  observeEvent(input$button, {
    k <- input$button %% 2
    #print(k)
    if (k==1) {
      hide("myradios")
      show("txt")
    }else {
      show("myradios")
      hide("txt")
    }
  }, ignoreNULL = FALSE)
  
}
shinyApp(ui = ui, server = server)