Update to detect out of range continous variables

valid_variables_script.R

 rm(list=ls())
 
 dir_name <- readline("Introduce the name of the directory please: ")
+#/Users/gnl/Documents/CTB UPM/UNCOVER/uncover_harmonization
 
 setwd(dir_name)
 
@@ -528,7 +529,32 @@ inp <- auxConnections[[2]]
 #Conexión a la base de datos
 
 ds.dim("data", datasources = connections)
-ds.colnames("data")
+colnames <- ds.colnames("data")
+colnames
+
+ds.dataFrameSubset(df.name = "data",
+                   V1.name = "data$LBXAPTTA",
+                   V2.name = "130",
+                   Boolean.operator = "<=",
+                   newobj = "inRangeHigh",
+                   keep.NAs = TRUE,
+                   datasources = connections)
+
+lengthHigh <- ds.length(x='inRangeHigh$LBXAPTTA', datasources = connections)
+
+
+ds.dataFrameSubset(df.name = "inRangeHigh",
+                   V1.name = "inRangeHigh$LBXAPTTA",
+                   V2.name = "11",
+                   Boolean.operator = ">=",
+                   newobj = "inRange",
+                   keep.NAs = TRUE,
+                   datasources = connections)
+
+lengthBuenos <- ds.length(x='inRange$LBXAPTTA', datasources = connections)
+
+summary <- ds.summary("inRange$LBXAPTTA")
+
 
 #----------------------------------------------------------------------------