ranell's questions

Estou procurando uma maneira de exibir Statutcomo inputSelect pegando c('','yes','no', 'refused')e Commentairespegando c('','b','c','d')e quando uma pessoa muda para algo diferente de '', para salvar o novo valor em um .csv. Ele salva uma entrada simples, mas não para uma escolha em uma lista.

library(DT)
library(htmltools)
library(shiny)
library(readr)

save_ref_values <- function(df, name) {
  write.csv(df, name, row.names = FALSE)  
}

missing_values <- structure(list(field_label = c("Date0:", "SR"),
    id = c("link","n"
    ), field = c("date1", "a"), value = c(NA,
    NA), form = c("eval 3", "eval 4"
    ), event = c("5", "5"), label = c("1",
    "1"), field_type = c("text", "radio"), required = c("y",
    "y"), logic = c(NA_character_, NA_character_),
    Commentaires = c(NA, NA), Statut = c(NA, NA)), row.names = 1:2, class = "data.frame")
 

datatableFactory <- function(df) {
  editable_columns <- which(names(df) %in% c("Statut", "Commentaires"))
  df$Statut <-  c(
        as.character(selectInput(
          inputId = "id1",
          label = NULL,
          choices = c('','yes','no', 'refused'),
        ))
      )
  df$Commentaires <-  c(
        as.character(selectInput(
          inputId = "id1",
          label = NULL,
          choices = c('','b','c','d')
        ))
      )
  values_dt_table <- DT::datatable(df,
                                     options = list(pageLength = 5, autoWidth = TRUE),
                                     filter = list(position = 'top', clear = FALSE),
                                     editable = list(target = "cell", disable = list(columns = setdiff(1:dim(df)[2], editable_columns))),
                                     escape = F)
  return(values_dt_table)
}

ui <- fluidPage(
  titlePanel("Génération du Rapport"),
  mainPanel(
  h2("Rapport Preview"),
  DTOutput("missing_values_dt_table"),
  )
)

update_table_data <- function(input, input_id, data_reactif, save_function) {
  observeEvent(input[[input_id]], {
    info <- input[[input_id]]
    i <- info$row 
    j <- info$col 
    value <- info$value 
    new_data <- data_reactif()
    if (colnames(new_data)[j] == "Commentaires") {
      new_data[i, "Commentaires"] <- value
    } else if (colnames(new_data)[j] == "Statut") {
      new_data[i, "Statut"] <- value
    }

    data_reactif(new_data)
    save_function(new_data)
  })
}
 
server <- function(input, output, session) {
missing_values <- read.csv("missing_values.csv")
missing_values_data <- reactiveVal(missing_values)
output$missing_values_dt_table <- renderDT({
datatableFactory(missing_values_data())
})
update_table_data(input
                   , "missing_values_dt_table_cell_edit"
                   , missing_values_data
                   , function(data) save_ref_values(data, "missing_values.csv"))
}

shinyApp(ui, server)