Release 0.3.1.2 for DSC_TIME variable

dscrutils/DESCRIPTION

@@ -1,7 +1,7 @@
 Package: dscrutils
 Encoding: UTF-8
 Type: Package
-Version: 0.3.1.1
+Version: 0.3.1.2
 Date: 2018-02-21
 Title: Dynamic Statistical Comparisons R Interface
 Authors@R: c(person("Gao","Wang",role=c("aut","cre"),

dscrutils/R/dscquery.R

@@ -218,13 +218,16 @@ dscquery <- function (dsc.outdir, targets, conditions = NULL, groups = NULL,
  stop(paste("Unable to read",dscfile,"because it does not exist"))
  }
  out <- read_dsc(dscfile)
+ if (var != 'DSC_TIME') {
+ # Check that the variable is one of the outputs in the file.
+ if (!is.element(var,names(out)))
+ stop(paste0("Output \"",var,"\" unavailable in ",dscfile))
 
- # Check that the variable is one of the outputs in the file.
- if (!is.element(var,names(out)))
- stop(paste0("Output \"",var,"\" unavailable in ",dscfile))
-
- # Extract the value of the variable.
- out[[var]]
+ # Extract the value of the variable.
+ out[[var]]
+ } else {
+ out$DSC_DEBUG$time$elapsed
+ }
  }, mc.cores = detectCores())
 
  # If all the available values are atomic, not NULL, and scalar

src/query_engine.py

@@ -130,6 +130,8 @@ def check_table_field(self, value, check_field = 0):
  keys_lower = [k.lower() for k in self.data.keys()]
  if not x.lower() in keys_lower:
  raise DBError(f"Cannot find module ``{x}`` in DSC results ``{self.db}``.")
+ if y == 'DSC_TIME':
+ return
  k = list(self.data.keys())[keys_lower.index(x.lower())]
  y_low = y.lower()
  if y_low == 'dsc_replicate':

src/version.py

@@ -1 +1 @@
-__version__ = '0.3.1.1'
+__version__ = '0.3.1.2'