在闪亮/闪亮仪表板R中为响应式数据帧创建新列

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "闪亮仪表板示例"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("新列", tabName = "newcolumn")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "newcolumn",
              fluidRow(
                column(6,
                       textInput("column_name", "列名："),
                       textInput("column_data", "列数据："),
                       actionButton("add_column", "添加列")
                ),
                column(6,
                       tableOutput("dataframe")
                )
              )
      )
    )
  )
)

server <- function(input, output) {
  # 创建一个响应式数据帧
  dataframe <- reactive({
    data.frame()
  })
  
  # 监听用户点击按钮的事件
  observeEvent(input$add_column, {
    # 获取用户输入的列名和列数据
    column_name <- input$column_name
    column_data <- input$column_data
    
    # 创建一个新的列，并将其添加到数据帧中
    new_column <- data.frame(column_name = column_data)
    dataframe() <- cbind(dataframe(), new_column)
  })
  
  # 在页面上显示数据帧
  output$dataframe <- renderTable({
    dataframe()
  })
}

# 运行应用
shinyApp(ui, server)