Commit b019731b authored by mahendra-mariadassou's avatar mahendra-mariadassou
Browse files

Make manual updates silent

parent 2dac6e4e
...@@ -79,11 +79,11 @@ app_server <- function(input, output, session) { ...@@ -79,11 +79,11 @@ app_server <- function(input, output, session) {
## Allow manual corrections ## Allow manual corrections
observeEvent(input$table_cell_edit, { observeEvent(input$table_cell_edit, {
info = input$table_cell_edit # info = input$table_cell_edit
str(info) # str(info)
i = info$row # i = info$row
j = info$col # j = info$col
v = info$value # v = info$value
otu$current_aff <<- editData(otu$current_aff, input$table_cell_edit, "table") otu$current_aff <<- editData(otu$current_aff, input$table_cell_edit, "table")
}) })
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment