checkboxInput和conditionalPanel閃亮

當選擇s1時，只顯示一個sidebarPanel和mainPanel，結果alpha爲0.05，功率爲0.8。當選擇s2時，只顯示一個sidebarPanel和mainPanel，結果alpha爲0.1，功率爲0.9。checkboxInput和conditionalPanel閃亮

這是我的ui.R和server.R。

下面是我的ui.R文件的代碼：

library(shiny) 
ui <- shinyUI(fluidPage(
    titlePanel("aaaaaaaaaaaaaaaa"), 
    tabsetPanel(
    navbarMenu("Means", 
      tabPanel("One Mean"), 
      tabPanel("Two Means", 
        wellPanel(
         checkboxInput(inputId = "s1", label = "S1", value = FALSE), 
         checkboxInput(inputId = "s2", label = "S2", value = FALSE) 
        ), 
        conditionalPanel(condition="input.s1==true", 
         sidebarPanel(
         p(strong("Error Rates")), 
         numericInput("alpha", label="Alpha", min=0, max=1,value=0.05), 
         numericInput("power", "Power", 0.8), 
         actionButton("submit","Submit") 
        ), 
         mainPanel(
         tabsetPanel(
          tabPanel("Main", 
            tableOutput("Table"), 
            uiOutput("Text") 
         ) 
         ) 
        ) 
        ), 
        conditionalPanel(condition="input.s2==true", 
            sidebarPanel(
             p(strong("Error Rates")), 
             numericInput("alpha", label="Alpha", min=0, max=1,value=0.1), 
             numericInput("power", "Power", 0.9), 
             actionButton("submit","Submit") 
            ), 
            mainPanel(
             tabsetPanel(
             tabPanel("Main", 
                tableOutput("Table"), 
                textOutput("Text") 
             ) 
             ) 
            ) 
        ) 
     ) 
    ))))

下面是我的server.R文件的代碼：

server <- shinyServer(function(input, output) { 
output$Table <- renderTable({ 
if(input$submit > 0) { 
    output<-data.frame(input$alpha,input$power) 
    output 
} 
}) 

output$Text<-renderText({ 
if(input$submit > 0) { 
    paste("alpha and power are",input$alpha,"and",input$power) 
} 
}) 
}) 

shinyApp(ui = ui, server = server)

非常感謝你。

來源

2017-01-04 stata

您的歡迎。我在這裏沒有看到問題。你能更清楚地知道你想要什麼嗎？ –

如果我選擇s1，那麼只顯示alpha = 0.05 Panel，如果我選擇s1，那麼只顯示alpha = 0.1 Panel。現在兩個面板在一個頁面中。謝謝。 – stata

@stata您是否需要在任何時候選擇's1'和's2'？你如何期望它在這種情況下工作？ – krish

這應該適合你。您需要稍微修改服務器代碼以處理不同的ID。您不能爲各種UI元素使用相同的ID。

ui <- shinyUI(fluidPage(
    titlePanel("aaaaaaaaaaaaaaaa"), 
    tabsetPanel(
    navbarMenu("Means", 
       tabPanel("One Mean"), 
       tabPanel("Two Means", 
         wellPanel(
          radioButtons(inputId = "buttons", "Selections", c("S1", "S2"), selected = "S1", inline = TRUE) 
         ), 
         sidebarPanel(
          conditionalPanel(condition = "input.buttons == 'S1'", 
              p(strong("Error Rates")), 
              numericInput("alpha", label="Alpha", min=0, max=1,value=0.05), 
              numericInput("power", "Power", 0.8), 
              actionButton("submit","Submit") 
              ), 
          conditionalPanel(condition = "input.buttons == 'S2'", 
              p(strong("Error Rates")), 
              numericInput("alpha1", label="Alpha", min=0, max=1,value=0.1), 
              numericInput("power1", "Power", 0.9), 
              actionButton("submit1","Submit") 
              ) 
         ), 
         mainPanel(
          tabsetPanel(
          tabPanel("Main", 
            tableOutput("Table"), 
            textOutput("Text") 
          ) 
         ) 
         ) 
       ) 
    ))))

來源

2017-01-04 17:10:14 krish

謝謝。現在用s1提交是行動，但用s2提交不是行動。 – stata

@stata，我沒有得到你想說的話。 – krish

當我選擇s2並提交時，Main的內容爲空白。 – stata

checkboxInput和conditionalPanel閃亮

回答

相關問題