ALL AMYLOID PATIENTS

database_amyloid %>% 
  select(-study_id, -attr, -al, -ef_equal_to_and_40, -ef_more_than_40, -pts_on_farxiga, jardiance) %>% 
    tbl_summary(
  # statistic = list(
      statistic = list(
        age ~ "{mean} ({sd})",
        gfr ~ "{mean} ({sd})",
        duration_of_sglt2i_months ~ "{mean} ({sd})"
                       )) %>% add_n
Characteristic N N = 561
gender 56
    F 17 (30%)
    M 39 (70%)
age 56 80 (8)
unknown 56 4 (7.1%)
ef 52 50 (36, 55)
    Unknown 4
dm 56 19 (34%)
ckd_stage_less_than_3a 56 28 (50%)
ckd_stage_equal_to_or_more_than_3a 56 28 (50%)
ckd_stage 56
    stage 1 2 (3.6%)
    stage 2 25 (45%)
    Stage 2 1 (1.8%)
    stage 3A 13 (23%)
    stage 3B 11 (20%)
    stage 4 4 (7.1%)
gfr 56 58 (18)
pro_bnp_at_the_time_of_initiation_of_therapy_pg_m_l 17 1,742 (1,060, 5,116)
    Unknown 39
pro_bnp_following_initiation_of_sglt2i 16 1,446 (829, 2,762)
    Unknown 40
duration_of_sglt2i_months 55 19 (9)
    Unknown 1
jardiance 56 50 (89%)
sglt2i_dced 3
    jardiance dc'ed due to complicated UTI 1 (33%)
    jardiance dc'ed since hospice 1 (33%)
    Jardiance was dc'ed- no reason 1 (33%)
    Unknown 53
gdmt 56 51 (91%)
complication_aki_following_sglt2i 56 3 (5.4%)
complication_uti 56 2 (3.6%)
complication_simple_depletion 56 1 (1.8%)
complication_hospitalization_for_chf 56 6 (11%)
sglt2_medication 56
    farxiga 6 (11%)
    jardiance 50 (89%)
amyloid_type 56
    al 3 (5.4%)
    attr 53 (95%)
ef_cutoff 52
    ef_less_40 15 (29%)
    ef_more_or_equal_40 37 (71%)
    Unknown 4
1 n (%); Mean (SD); Median (IQR)

ONLY ATTR PATIENTS

database_amyloid %>%
  filter(amyloid_type=="attr") %>% 
  select(-study_id, -attr, -al, -ef_equal_to_and_40, -ef_more_than_40, -pts_on_farxiga, jardiance) %>% 
    tbl_summary(
      statistic = list(
        age ~ "{mean} ({sd})",
        gfr ~ "{mean} ({sd})",
        duration_of_sglt2i_months ~ "{mean} ({sd})"
                       )) %>% add_n
Characteristic N N = 531
gender 53
    F 15 (28%)
    M 38 (72%)
age 53 81 (8)
unknown 53 4 (7.5%)
ef 49 50 (36, 55)
    Unknown 4
dm 53 17 (32%)
ckd_stage_less_than_3a 53 26 (49%)
ckd_stage_equal_to_or_more_than_3a 53 27 (51%)
ckd_stage 53
    stage 1 2 (3.8%)
    stage 2 23 (43%)
    Stage 2 1 (1.9%)
    stage 3A 13 (25%)
    stage 3B 10 (19%)
    stage 4 4 (7.5%)
gfr 53 58 (18)
pro_bnp_at_the_time_of_initiation_of_therapy_pg_m_l 17 1,742 (1,060, 5,116)
    Unknown 36
pro_bnp_following_initiation_of_sglt2i 16 1,446 (829, 2,762)
    Unknown 37
duration_of_sglt2i_months 53 19 (9)
jardiance 53 47 (89%)
sglt2i_dced 3
    jardiance dc'ed due to complicated UTI 1 (33%)
    jardiance dc'ed since hospice 1 (33%)
    Jardiance was dc'ed- no reason 1 (33%)
    Unknown 50
gdmt 53 49 (92%)
complication_aki_following_sglt2i 53 2 (3.8%)
complication_uti 53 2 (3.8%)
complication_simple_depletion 53 1 (1.9%)
complication_hospitalization_for_chf 53 6 (11%)
sglt2_medication 53
    farxiga 6 (11%)
    jardiance 47 (89%)
amyloid_type 53
    attr 53 (100%)
ef_cutoff 49
    ef_less_40 14 (29%)
    ef_more_or_equal_40 35 (71%)
    Unknown 4
1 n (%); Mean (SD); Median (IQR)

create_table <- function(data) {

}