Reset data in table

[jaracklawrence]

I currently have a shiny app in which a selectinput allows users to choose a particular saved table, and i display that table using this excelR package (which is extremely useful). Users currently:

1. Select a table from the drop down.
2. Edit the table (which is a series of model inputs and parameters) using excelR as described in the documentation
3. Click an action button to then run our model, reading data from the edited table (which is saved as a reactive value).

This all works fine in most cases.

However, in the case that the user:

1. Selects a table,
2. Edits it,
3. Selects another table (but does not edit it),
4. Clicks the run button
   Above the model will run using the table generated at step 2 - not the new one selected at step 3. Whilst the display will show the new table selected at step 3, it appears shiny doesn't update input$table unless an edit is made directly to it.

This is similar to if no edit is made at all. I see the documentation suggests the following:

        table_data <- excel_to_R(input$table)

        if(!is.null(table_data)){
            data_to_use <- table_data
        } 

I have modified this to the following for my purposes:

        table_data <- excel_to_R(input$table)

        if(is.null(table_data)){
            data_to_use <- original_table() #where original_table() is a reactive value of readRDS
        } else {
            data_to_use <- table_data
        }

Above it will simply assign the original table where no edits have been made to the excel table.

However, this still doesn't help if edits have been made, and then the selectinput chooses a different table.

In an ideal world there would be some solution that looks as follows:

Option 1: Another check in the logic described above and below

        table_data <- excel_to_R(input$table)

        if(is.null(table_data)){
            run_data <- original_table()
        } else if ( SOME CHECK GOES HERE ) {
            run_data <- original_table()
        } else {
            run_data <- table_data
        }

Option 2:

Some way of forcing excel_to_R(input$table) to reset to null every time the selectinput is used.

Many thanks,

I'm really enjoying this package.

[Swechhya]

@jaracklawrence Currently the excel_to_R only returns data on any kind of onChange or onSelection event. I'll add a this as a todo feature.

[daeyoonlee]

Thank you for the great package !
I am currently using rHandsontable and DT but i am considering to change to excelR.
Currently excel_to_R function returns full data but I am interested about changed value(s) and table index only to speed up.
I would be very happy if it could be applied in the future.

[Swechhya]

Thanks @daeyoonlee. Will surely add it to the pipeline of todo features.

[daeyoonlee]

Thanks for your kind answer. I look forward to it.