edit data: when adding new data remove NA (in case of different class)

dreamRs · Feb 7, 2024 · bf9885d · bf9885d
1 parent faf15a8
commit bf9885d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/edit-data.R b/R/edit-data.R
@@ -259,7 +259,7 @@ edit_data_server <- function(id,
           )
 
           if (isTruthy(res_callback) & !isTRUE(only_callback)) {
-            data <- rbind(data, new, fill = TRUE)
+            data <- rbind(data, new[, .SD, .SDcols = !anyNA], use.names = TRUE, fill = TRUE)
             data_rv$data <- data
             update_table(data, data_rv$colnames)
             removeModal()