diff --git a/R/mod_Metacell_Filtering.R b/R/mod_Metacell_Filtering.R
index ea521ef..e7ab62b 100644
--- 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
index ad89d66..a8322f5 100644
--- 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",