Demographics table not rendering in safetyGraphicsApp()

[jwildfire]

No chart showing up using default AdAM data, but seems to work with SDTM ...

[jwildfire]

This is the error with the default AdAM data:

But runs as expected with the standard SDTM data:

sdtm <- list(
    dm=safetyData::sdtm_dm,
    aes=safetyData::sdtm_ae,
    labs=safetyData::sdtm_lb
)

safetyGraphics::safetyGraphicsApp(domainData=sdtm)

Seems like it's almost definitely an issue with the generalized code for defining the columns added in #72.

I guess I'll pull the relevant code out of shiny and see if i can get that to run ...

@elimillera if you've got a better idea, feel free to jump in :)

[jwildfire]

Error is on this line. Simplified reprex:

devtools::load_all('../safetyCharts')
devtools::load_all('../safetyGraphics')
library(tidyverse)
library(yaml)
data<-safetyData::adam_adsl
mapping_yaml<-"id_col: USUBJID
treatment_col: ARM
treatment_values:
  group1: ''
  group2: ''
sex_col: SEX
race_col: RACE
age_col: AGE
"
mapping <- read_yaml(text=mapping_yaml)

 tplyr_tab <- Tplyr::tplyr_table(data, !!sym(settings$treatment_col)) %>%
        Tplyr::add_total_group() %>%
        Tplyr::add_layer(
            Tplyr::group_count(!!sym(settings$race_col), by = "Race")
        ) %>%
        Tplyr::add_layer(
            Tplyr::group_desc(!!sym(settings$age_col), by = "Age (Years)")
        )

    treatments<- unique(data[,settings$treatment_col])
    treatment_vars <- paste0("var1_",treatments)
    treatment_labels <- paste0(treatments, "\\line(N=**",treatments,"**)|", collapse=" ")
    header <- paste0(" | | ",treatment_labels," Total\\line(N=**Total**)")
    tab <- tplyr_tab %>%
        Tplyr::build() %>%
        arrange(.data$ord_layer_index, .data$ord_layer_1, .data$ord_layer_2) %>% 
        select(starts_with("row_label"), treatment_vars, .data$var1_Total)

[jwildfire]

Looks like this line was making a tibble instead of a vector as intended: treatments<- unique(data[,settings$treatment_col]). Changed it to: treatments<- data%>%pull(settings$treatment_col) %>% unique() and that seems to fix the problem.