Using KDIGO Clinical Practice Guideline for Acute Kidney Injury Volume 2 | Issue 1 | March 2012
Usage
aki_SCr(...)
# S3 method for class 'data.frame'
aki_SCr(.data, SCr, dttm, pt_id, ...)
# S3 method for class 'units'
aki_SCr(SCr, dttm, pt_id, ...)
# S3 method for class 'numeric'
aki_SCr(SCr, dttm, pt_id, ...)Arguments
- ...
Further optional arguments
- .data
(data.frame) A data.frame, optional
- SCr
Serum creatinine column name, or vector of units or numeric if
.datais not provided- dttm
DateTime column name, or vector of POSIXct if
.datais not provided- pt_id
Patient ID column name, or vector of characters or factors if
.datais not provided
Details
AKI Stage 1: \(\ge\)0.3 mg/dl (\(\ge\)26.5 mmol/l) increase
AKI Stage 2: N/A
AKI Stage 3: \(\ge\)4.0 mg/dl (\(\ge\)353.6 mmol/l)
See https://kdigo.org/guidelines/acute-kidney-injury/ for more details.
Examples
aki_SCr(aki_pt_data, SCr = "SCr_", dttm = "dttm_", pt_id = "pt_id_")
#> [1] No AKI No AKI No AKI No AKI No AKI No AKI
#> [7] No AKI No AKI AKI Stage 1 No AKI No AKI AKI Stage 1
#> [13] No AKI No AKI No AKI No AKI No AKI No AKI
#> [19] No AKI No AKI No AKI No AKI No AKI No AKI
#> [25] No AKI No AKI No AKI
#> Levels: No AKI < AKI Stage 1 < AKI Stage 2 < AKI Stage 3
aki_pt_data %>%
dplyr::mutate(aki = aki_SCr(SCr = SCr_, dttm = dttm_, pt_id = pt_id_))
#> # A tibble: 27 × 8
#> SCr_ bCr_ pt_id_ dttm_ UO_ aki_staging_type aki_ aki
#> [mg/dl] [mg/dl] <chr> <dttm> [ml/… <chr> <ord> <ord>
#> 1 2 1.5 NA NA NA aki_bCr No A… No A…
#> 2 2.5 1.5 NA NA NA aki_bCr AKI … No A…
#> 3 3 1.5 NA NA NA aki_bCr AKI … No A…
#> 4 3.5 1.5 NA NA NA aki_bCr AKI … No A…
#> 5 4 1.5 NA NA NA aki_bCr AKI … No A…
#> 6 4.5 1.5 NA NA NA aki_bCr AKI … No A…
#> 7 3.4 NA pt1 2020-10-23 09:00:00 NA aki_SCr No A… No A…
#> 8 3.9 NA pt1 2020-10-25 21:00:00 NA aki_SCr No A… No A…
#> 9 3 NA pt1 2020-10-20 09:00:00 NA aki_SCr AKI … AKI …
#> 10 3.4 NA pt2 2020-10-18 22:00:00 NA aki_SCr No A… No A…
#> # ℹ 17 more rows