Get short with unit

ys_get_short_unit(x, .aslist = TRUE, parens = TRUE, ...)

Arguments

x

ycol or yspec object

.aslist

a named list is returned if TRUE, otherwise a named character vector

parens

if TRUE, then parens will be added around any unit with one or more character

...

arguments passed to ys_get_short() and ys_get_unit()

Examples

spec <- ys_help$spec()

ys_get_short_unit(spec)
#> $C
#> [1] "comment character"
#> 
#> $NUM
#> [1] "record number"
#> 
#> $ID
#> [1] "subject identifier"
#> 
#> $SUBJ
#> [1] "subject identifier"
#> 
#> $TIME
#> [1] "TIME (hour)"
#> 
#> $SEQ
#> [1] "SEQ"
#> 
#> $CMT
#> [1] "compartment number"
#> 
#> $EVID
#> [1] "event ID"
#> 
#> $AMT
#> [1] "dose amount (mg)"
#> 
#> $DV
#> [1] "dependent variable (micrograms/L)"
#> 
#> $AGE
#> [1] "age (years)"
#> 
#> $WT
#> [1] "weight (kg)"
#> 
#> $CRCL
#> [1] "CRCL (ml/min)"
#> 
#> $ALB
#> [1] "albumin (g/dL)"
#> 
#> $BMI
#> [1] "BMI (m2/kg)"
#> 
#> $AAG
#> [1] "alpha-1-acid glycoprotein (mg/dL)"
#> 
#> $SCR
#> [1] "serum creatinine (mg/dL)"
#> 
#> $AST
#> [1] "aspartate aminotransferase"
#> 
#> $ALT
#> [1] "alanine aminotransferase"
#> 
#> $HT
#> [1] "height (cm)"
#> 
#> $CP
#> [1] "Child-Pugh score"
#> 
#> $TAFD
#> [1] "time after first dose (hours)"
#> 
#> $TAD
#> [1] "time after dose (hours)"
#> 
#> $LDOS
#> [1] "last dose amount (mg)"
#> 
#> $MDV
#> [1] "MDV"
#> 
#> $BLQ
#> [1] "below limit of quantification"
#> 
#> $PHASE
#> [1] "study phase indicator"
#> 
#> $STUDY
#> [1] "study number"
#> 
#> $RF
#> [1] "renal function stage"
#> 

ys_get_short_unit(spec$WT)
#> [[1]]
#> [1] "weight (kg)"
#>