0

我尝试在表格中创建一个下拉列表，给定一个默认值，以及列表中所有可能的选项，我想以这种方式更新值并更新数据，并输出一个更新的 csv 文件。

这是我的可重现代码：

library(shiny)
library(DT)

raw_all_dataset <- iris

shinyApp(

  ui <-  navbarPage("Modifier",
                    tabPanel("Dataset Level",

                             mainPanel(
                               fluidRow(
                                 tags$style(type='text/css', ".selectize-input { font-size: 12px; line-height: 12px;} .selectize-dropdown { font-size: 12px; line-height: 12px; }"),
                               ),
                               DT::dataTableOutput("output_dataset", width = "auto", height = "auto")
                             )
                    ),

                    theme = shinytheme("yeti")
  ),

  server <- function(input, output, session) {

    data1 <- raw_all_dataset

    for (i in 1:nrow(data1)) {
      data1$FRULE[i] <- as.character(selectInput("sel_data1", "", choices = c("Keep","Drop"), selected = "Keep"))
    }

    output$output_dataset = DT::renderDataTable(server = FALSE, DT::datatable(

    data1,

    style = 'jqueryui',

    extensions = 'Buttons',
    options = list(dom = 'Bfrtlip',buttons = list('copy', list(extend = 'collection', buttons = list(list(extend = 'csv', filename = "deid_all_dataset"),
                                                                                                     list(extend = 'excel', filename = "deid_all_dataset")), text = 'Save this report'))),

    escape = FALSE

    ) 

    )

  }

)

我面临的困难是表格没有同时更新，输出 csv 显示下拉列表中的所有选项都填充在同一个单元格中，而不是单元格中想要和唯一想要的选项...... ...

在此处输入图像描述

4

0 回答 0