Get short with unit
ys_get_short_unit(x, .aslist = TRUE, parens = TRUE, ...)
ycol or yspec object
a named list is returned if TRUE
, otherwise a named
character vector
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()
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)"
#>