R shiny 根據輸入向小標題插入一列

Question

我有一個簡單的小標題，有 2 列， Column1和Column2 。 如果 selectInput s1的輸入為No ，我想添加第三列Column3 ，但如果 selectInput s1的輸入為Yes ，則應該只有 2 列。

library(shiny)
library(tidyverse)

ui <- fluidPage(
  selectInput("s1", label = "Select", choices = c("Yes","No")),
  dataTableOutput("table1")
)

server <- function(input, output, session) {
  df = reactive({
    tibble(Column1 = rep(1,10), Column2 = rep(2,10))
  })
  
  output$table1 = renderDataTable({
    df()
  })
}

shinyApp(ui, server)

Answer 1

使用 Stéphane Laurent 的建議，我試圖想出一個答案，如果有根本性的錯誤，請糾正它。

library(shiny)
library(tidyverse)

ui <- fluidPage(
  selectInput("s1", label = "Select", choices = c("Yes","No")),
  dataTableOutput("table1")
)

server <- function(input, output, session) {
  df = reactive({
    tibble(Column1 = rep(1,10), Column2 = rep(2,10))
  })
  
  s2 = reactive({add_column(df(),Column3=1)})
  
  output$table1 = renderDataTable({
    if(input$s1=="Yes"){
      df()
    } else {s2()}
  })
  

}

shinyApp(ui, server)