Skip to content
Snippets Groups Projects
Commit 622ba04c authored by wactbprot's avatar wactbprot
Browse files

{(unit)}

parent 677f4683
No related branches found
No related tags found
No related merge requests found
......@@ -12,8 +12,8 @@ results <- function(ccc){
## pcal
##-------------##
PCAL <- getSubList(a$cav$Pressure, "cal")
PCAL$HeadCell <- "{\\(p_{cal}\\)}"
PCAL$UnitCell <- paste0("(",PCAL$Unit,")")
PCAL$HeadCell <- "{\\(p_{\\text{cal}}\\)}"
PCAL$UnitCell <- paste0("{(",PCAL$Unit,")}")
pcal <- getConstVal(NA, NA, PCAL)
##-------------##
......@@ -35,14 +35,14 @@ results <- function(ccc){
## ind
PIND <- getSubList(a$cav$Pressure, "ind")
PIND$HeadCell <- "{\\(p_{ind}\\)}"
PIND$UnitCell <- paste0("(",PIND$Unit,")")
PIND$HeadCell <- "{\\(p_{\\text{ind}}\\)}"
PIND$UnitCell <- paste0("{(",PIND$Unit,")}")
pind <- getConstVal(NA, NA, PIND)
## ind_corr
PINDcorr <- getSubList(a$cav$Pressure, "ind_corr")
PINDcorr$HeadCell <- "{\\(p_{ind} - p_r\\)}"
PINDcorr$UnitCell <- paste0("(",PINDcorr$Unit,")")
PINDcorr$HeadCell <- "{\\(p_{\\text{ind}} - p_{\\text{r}}\\)}"
PINDcorr$UnitCell <- paste0("{(",PINDcorr$Unit,")}")
pindcorr <- getConstVal(NA, NA, PINDcorr)
## e
......@@ -99,10 +99,7 @@ results <- function(ccc){
ccc$Calibration$Result$Table[[6]] <- UTE
ccc$Calibration$Result$Table[[7]] <- UTCF
ccc$Calibration$Result$Table[[7]]$Comment <- msg
return(ccc)
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment