...

R/shiny-ui-base.R

@@ -666,7 +666,8 @@ mk_shinyscreen_server <- function() {
         })
 
         rf_get_order <- reactive({
-            dt <- tryCatch(rhandsontable::hot_to_r(input$order_summ),error = function(e) def_ord_summ)
+            dt <- if (NROW(input$order_summ)==0) def_ord_summ else rhandsontable::hot_to_r(input$order_summ)
+            
             tmp <- dt[Direction == "descending",.(`Column Name`=paste0("-",`Column Name`))]
             tmp[,`Column Name`]
         })