R Shiny: использование пакета DT для редактирования таблицы в раскрывающемся списке, обновления таблицы и вывода в файл CSV - PullRequest
Новая
       98

R Shiny: использование пакета DT для редактирования таблицы в раскрывающемся списке, обновления таблицы и вывода в файл CSV

0 голосов
/ 08 мая 2020

Я пытаюсь создать раскрывающийся список в таблице, учитывая значение по умолчанию и все возможные параметры в списке, я хотел бы обновить значение таким образом и обновить данные и вывести обновленный файл 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 показывает, что все параметры в раскрывающемся списке были заполняется в той же ячейке, а не в желаемом и единственном желаемом в ячейке ......

введите здесь описание изображения

...