fix issue fdiwg#7

tokami · Sep 28, 2023 · 763336b · 763336b
1 parent 666910e
commit 763336b
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 5 deletions.
diff --git a/assets/LBM/lbi/algorithms/tables.R b/assets/LBM/lbi/algorithms/tables.R
@@ -179,7 +179,9 @@ tableLBI.inputPars <- function(lbi_dat, input, format = "datatable"){
  a = input$LBI_LWa,
  b = input$LBI_LWb)
  ind.remove <- which(is.na(tab[1,]))
- tab <- tab[,-ind.remove]
+ if(length(ind.remove) > 0){
+ tab <- tab[,-ind.remove]
+ }
 
  if(format == "datatable"){
  labs <- c("Bin size",
@@ -212,11 +214,14 @@ tableLBI.inputPars <- function(lbi_dat, input, format = "datatable"){
  "a",
  "b")
  }
- colnames(tab) <- labs[-ind.remove]
 
  ## Selection
+ if(length(ind.remove) > 0){
+ labs <- labs[-ind.remove]
+ }
+ colnames(tab) <- labs
  tmp <- tab
- labs <- labs[-ind.remove]
+
 
  ## Rounding
  tmp[,which(labs != "Length unit")] <- signif(tmp[,which(labs != "Length unit")],

diff --git a/assets/LBM/lbspr/algorithms/tables.R b/assets/LBM/lbspr/algorithms/tables.R
@@ -73,10 +73,11 @@ tableLBSPR.inputPars <- function(lbspr_dat, input, format = "datatable"){
  "b")
  }
 
-
  ## Selection
+ if(length(ind.remove) > 0){
+ labs <- labs[-ind.remove]
+ }
  tmp <- tab
- labs <- labs[-ind.remove]
 
  ## Rounding
  tmp[,which(labs != "Length unit")] <- signif(tmp[,which(labs != "Length unit")],