mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2025-12-16 17:42:10 +01:00
39 lines
451 B
Markdown
39 lines
451 B
Markdown
|
# Extract attribute. Returns NA if none
|
||
|
|
|
||
|
|
Extract attribute. Returns NA if none
|
||
|
|
|
||
|
|
## Usage
|
||
|
|
|
||
|
|
``` r
|
||
|
|
get_attr(data, attr = NULL)
|
||
|
|
```
|
||
|
|
|
||
|
|
## Arguments
|
||
|
|
|
||
|
|
- data:
|
||
|
|
|
||
|
|
vector
|
||
|
|
|
||
|
|
- attr:
|
||
|
|
|
||
|
|
attribute name
|
||
|
|
|
||
|
|
## Value
|
||
|
|
|
||
|
|
character vector
|
||
|
|
|
||
|
|
## Examples
|
||
|
|
|
||
|
|
``` r
|
||
|
|
attr(mtcars$mpg, "label") <- "testing"
|
||
|
|
do.call(c, sapply(mtcars, get_attr))
|
||
|
|
#> $mpg.label
|
||
|
|
#> [1] "testing"
|
||
|
|
#>
|
||
|
|
if (FALSE) { # \dontrun{
|
||
|
|
mtcars |>
|
||
|
|
numchar2fct(numeric.threshold = 6) |>
|
||
|
|
ds2dd_detailed()
|
||
|
|
} # }
|
||
|
|
```
|