R lucido: come ottenere un frame di dati reattivo aggiornato ogni volta premendo un pulsante di azione senza creare un nuovo frame di dati reattivi?

Question

La mia app lucida consente all'utente di caricare un csv utilizzando fileInput e memorizzato come oggetto reattivo df_data. Ho quindi creato un valore numericoInput per l'utente per immettere un numero di riga da eliminare dal frame di dati. Tuttavia, ho ricevuto un errore sulla valutazione nidificata troppo profondamente: ricorsione infinita/opzioni (espressioni =)?.

Di seguito è riportato il mio codice per ui.R.

shinyUI(fluidPage(
    titlePanel("amend data frame"), 

    mainPanel(
    fileInput("file", "Upload file"), 

    numericInput("Delete", "Delete row:", 1, step = 1), 
    actionButton("Go", "Delete!"), 

    tableOutput("df_data") 
) 
)) 

E di seguito è il mio codice per server.R.

shinyServer(function(input, output) { 
    df_data <- reactive({ 
    read.csv(input$file$datapath) 
    }) 

    df_data <- eventReactive(
    input$Go, 
    df_data()[-input$Delete,] 
) 

    output$df_data <- renderTable(df_data()) 
}) 

ho risolto il problema assegnando il frame di dati subsetted in un frame di dati reattiva chiamata, per esempio, df_data2. Ma voglio rendere l'utente in grado di continuare a cancellare righe diverse inserendo valori in Elimina riga e premere il pulsante Go. Quindi questa soluzione non funzionerà dato che dovrò assegnare df_data3, df_data4 ... e non potrei prevedere in anticipo quante volte l'utente preme il pulsante Go.

Sono un nuovo utente brillante per circa 2 settimane e sono stato alla ricerca di soluzioni su questo per una settimana. C'è qualcuno che può aiutarmi? Un milione di ringraziamenti !!

Answer 1

Di seguito è una soluzione di lavoro. Ho creato un reactiveValues per archiviare il dataframe. Quando viene selezionato un file, il dataframe viene popolato. Quando viene premuto il pulsante Elimina, lo stesso dataframe ottiene una riga cancellata. La tabella emette sempre tutto ciò che l'oggetto dataframe trattiene. Spero che questo codice possa essere un buon materiale didattico

runApp(shinyApp(
ui=(fluidPage(
    titlePanel("amend data frame"), 

    mainPanel(
    fileInput("file", "Upload file"), 

    numericInput("Delete", "Delete row:", 1, step = 1), 
    actionButton("Go", "Delete!"), 

    tableOutput("df_data_out") 
) 
)), 
server = (function(input, output) { 
    values <- reactiveValues(df_data = NULL) 

    observeEvent(input$file, { 
    values$df_data <- read.csv(input$file$datapath) 
    }) 

    observeEvent(input$Go, { 
    temp <- values$df_data[-input$Delete, ] 
    values$df_data <- temp 

    }) 

    output$df_data_out <- renderTable(values$df_data) 
})))