Add Chart Status Check and integrate in Shiny UI (Fix #562)

[jwildfire]

Overview

• checkChartStatus() is in good shape and has some simple unit tests.
• Updated Shiny App to show check/x for status in chart menu and in the header of the chart page.

Test Code

See tests/checkChartStatus.R for functional testing. See code below for updates in UI.

a<-makeChartConfig()
a$aeExplorer$dataSpec<-list(
    aes=c("id_col","bodsys_col"),
    dm=c("id_col","treatment_col")
)

a$hepExplorer$dataSpec<-list(
    labs=c("id_col","measure_col")
)

a$aeTimelines$dataSpec <- list(
    aes = c("notacol")
)

safetyGraphicsApp(charts=a)

[jwildfire]

cc: @samussiah @bzkrouse

[jwildfire]

@samussiah Could you do an initial review this PR sometime this week and let me know what you think? Would like to get back to this and make the UI updates next week.

[jwildfire]

Going to try to avoid using shinyjs in tab titles via this approach

[jwildfire]

@bzkrouse @samussiah Ended up doing a fairly significant refactor of the app to simplify the status workflow. Still planning to add a bit more detail and clean up checks etc.

[jwildfire]

Think I'm pretty much done with this. Kept the UI simple for now (added a status icon with some details on mouseover) - can consider making it more complex in a future release (Modal? Separate collapsable Shiny Module?).

[jwildfire]

@samussiah Just bumping this to put it back on your radar.