IN the latest code for om_cia_table -- which is waaay streamlined and should be great -- there is a sapply that inadvertently sets all column to "1" instead of their values.
Lines 93-94:
rseg_summary.i[] <- sapply(rseg_summary.i[],as.numeric) #MAKE ALL FIELDS NUMERIC
rseg_summary.i <- rseg_summary.i %>% mutate_if(is.numeric, round, digits=2) #ROUND ALL FIELDS
IN the latest code for om_cia_table -- which is waaay streamlined and should be great -- there is a sapply that inadvertently sets all column to "1" instead of their values.
Lines 93-94:
Here is an example: