Fixed #83

edyp-lab · Dec 16, 2024 · a0be135 · a0be135
1 parent 647b488
commit a0be135
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/R/mod_Metacell_Filtering.R b/R/mod_Metacell_Filtering.R
@@ -152,8 +152,6 @@ mod_Metacell_Filtering_server <- function(id,
       req(is.enabled())
       req(rv$dataIn)
 
-      print('in toto')
-      print(remoteReset())
       rv.custom$funFilter <- mod_qMetacell_FunctionFilter_Generator_server(
         id = "query",
         obj = reactive({rv$dataIn[[length(rv$dataIn)]]}),

diff --git a/R/mod_infos_dataset.R b/R/mod_infos_dataset.R
@@ -175,14 +175,14 @@ MagellanNTK::format_DT_server('dt',
       req(rv$dataIn)
       req(input$selectInputSE != "None")
 
-     
+
         .se <- rv$dataIn[[input$selectInputSE]]
 
-        typeOfData <- metadata(.se)$typeDataset
+        typeOfData <- typeDataset(.se)
         nLines <- nrow(.se)
         .nNA <- QFeatures::nNA(.se)
-        percentMV <- round(.nNA$nNA[,'pNA'], digits = 2)
-        nEmptyLines <-  length(which(.nNA$nNArows[,'pNA']==100))
+        percentMV <- round(100*.nNA$nNA[,'pNA'], digits = 2)
+        nEmptyLines <-  length(which(.nNA$nNArows[,'nNA']==ncol(.se)))
 
         val <- c(typeOfData, nLines, percentMV, nEmptyLines)
         row_names <- c("Type of data",