unit in

utils/resSens.r

@@ -8,7 +8,7 @@ resSens <- function(ccc){
     ##-------------##
     PCAL <- getSubList(a$cav$Pressure, "cal")
     PCAL$HeadCell <- "{\\(p_{cal}\\)}"
-    PCAL$UnitCell <- PCAL$Unit
+    PCAL$UnitCell <- paste("{in", PCAL$Unit, "}")
     pcal <- getConstVal(NA, NA, PCAL)
 
     ##-------------##
@@ -27,14 +27,14 @@ resSens <- function(ccc){
     ##-------------##
     PIND <- getSubList(a$cav$Pressure, "ind")
     PIND$HeadCell <- "{\\(I_{C}\\)}"
-    PIND$UnitCell <-  PIND$Unit
+    PIND$UnitCell <-  paste("{in", PIND$Unit, "}")
     pind <- getConstVal(NA, NA, PIND)
     ##-------------##
     ## ind_offset
     ##-------------##
     PINDoffs <- getSubList(a$cav$Pressure, "ind_offset")
     PINDoffs$HeadCell <- "{\\(I_{R}\\)}"
-    PINDoffs$UnitCell <-  PINDoffs$Unit
+    PINDoffs$UnitCell <-  paste("{in", PINDoffs$Unit, "}")
     pindoffs <- getConstVal(NA, NA, PINDoffs)
 
     ##-------------##
@@ -42,7 +42,7 @@ resSens <- function(ccc){
     ##-------------##
     PINDcorr <- getSubList(a$cav$Pressure, "ind_corr")
     PINDcorr$HeadCell <- "{\\(I_{C} - I_{R}\\)}"
-    PINDcorr$UnitCell <- PINDcorr$Unit
+    PINDcorr$UnitCell <- paste("{in", PINDcorr$Unit, "}")
     pindcorr <- getConstVal(NA, NA, PINDcorr)
 
     ##-------------##
@@ -51,7 +51,7 @@ resSens <- function(ccc){
     RES <- getSubList(a$cav$Sensitivity, "gauge_sens")
 
     RES$HeadCell <- "{\\(S\\)}"
-    RES$UnitCell <- RES$Unit
+    RES$UnitCell <- paste("{in", RES$Unit, "}")
     result <- getConstVal(NA, NA, RES)
    
     PCAL$Value      <- formatC(pcal, digits=3, format="E")

utils/results.r

@@ -13,7 +13,7 @@ results <- function(ccc){
     ##-------------##
     PCAL <- getSubList(a$cav$Pressure, "cal")
     PCAL$HeadCell <- "{\\(p_{\\text{cal}}\\)}"
-    PCAL$UnitCell <- paste0("{(",PCAL$Unit,")}")
+    PCAL$UnitCell <- paste0("{ in ",PCAL$Unit,"}")
     pcal <- getConstVal(NA, NA, PCAL)
 
     ##-------------##
@@ -36,13 +36,13 @@ results <- function(ccc){
     ## ind
     PIND <- getSubList(a$cav$Pressure, "ind")
     PIND$HeadCell <- "{\\(p_{\\text{ind}}\\)}"
-    PIND$UnitCell <- paste0("{(",PIND$Unit,")}")
+    PIND$UnitCell <- paste0("{in ",PIND$Unit,"}")
     pind <- getConstVal(NA, NA, PIND)
 
     ## ind_corr
     PINDcorr <- getSubList(a$cav$Pressure, "ind_corr")
     PINDcorr$HeadCell <- "{\\(p_{\\text{ind}} - p_{\\text{r}}\\)}"
-    PINDcorr$UnitCell <- paste0("{(",PINDcorr$Unit,")}")
+    PINDcorr$UnitCell <- paste0("{in ",PINDcorr$Unit,"}")
     pindcorr <- getConstVal(NA, NA, PINDcorr)
 
     ## e