Skip to contents

Group Overview Widget

Source: R/Widget_GroupOverview.R
Widget_GroupOverview.Rd

[Stable]

A widget that generates a group overview table of group-level metric results across one or more metrics.

Usage

Widget_GroupOverview(
  dfResults,
  dfMetrics,
  dfGroups,
  strGroupLevel = NULL,
  strGroupSubset = "red",
  strGroupLabelKey = "InvestigatorLastName",
  strSiteRiskMetric = "Analysis_srs0001",
  strOutputLabel = paste0(fontawesome::fa("table", fill = "#337ab7"), "  ",
    strGroupLevel, " Overview"),
  bDebug = FALSE,
  ...
)

Arguments

dfResults

data.frame A stacked summary of analysis pipeline output. Created by passing a list of results returned by gsm.core::Summarize() to gsm.reporting::BindResults(). Expected columns: GroupID, GroupLevel, Numerator, Denominator, Metric, Score, Flag, MetricID, StudyID, SnapshotDate.

dfMetrics

data.frame Metric-specific metadata for use in charts and reporting. Created by passing an lWorkflow object to gsm.reporting::MakeMetric(). Expected columns: File, MetricID, Group, Abbreviation, Metric, Numerator, Denominator, Model, Score, and Threshold. For more details see the Data Model vignette: vignette("DataModel", package = "gsm.core").

dfGroups

data.frame Group-level metadata dictionary. Created by passing CTMS site and study data to gsm.mapping::MakeLongMeta(). Expected columns: GroupID, GroupLevel, Param, Value.

strGroupLevel

character Value for the group level. Default: NULL and taken from dfMetrics$GroupLevel if available.

strGroupSubset

character Subset of groups to include in the table. Default: 'red'. Options:

  • 'all': All groups.

  • 'red': Groups with 1+ red flags.

  • 'red/amber': Groups with 1+ red/amber flag.

  • 'amber': Groups with 1+ amber flag.

strGroupLabelKey

character Value for the group label key. Default: 'InvestigatorLastName'.

strSiteRiskMetric

character Metric ID for the site risk score. Default: 'Analysis_srs0001'.

strOutputLabel

character Label describing the output object, which is assigned to the output_label attribute of the output object and appears in the report generated by gsm.kri::Report_KRI().

bDebug

logical Print debug messages? Default: FALSE.

...

any Additional chart configuration settings.

Examples

# site-level report
Widget_GroupOverview(
  dfResults = dplyr::filter(gsm.core::reportingResults, SnapshotDate == max(SnapshotDate)),
  dfMetrics = gsm.core::reportingMetrics,
  dfGroups = gsm.core::reportingGroups
)
#> Parsed 32,16,0,1,2 to numeric vector: 32, 16, 0, 1, 2
#> Parsed 8,0,0,4,8 to numeric vector: 8, 0, 0, 4, 8
#> Parsed 8,4,0,8,16 to numeric vector: 8, 4, 0, 8, 16
#> Parsed 0,0,0,16,32 to numeric vector: 0, 0, 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,0,0,8,16 to numeric vector: 0, 0, 0, 8, 16
#> Parsed 0,8,16 to numeric vector: 0, 8, 16
#> Parsed 0,4,8 to numeric vector: 0, 4, 8
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2



# filter site-level report to all flags
Widget_GroupOverview(
  dfResults = dplyr::filter(gsm.core::reportingResults, SnapshotDate == max(SnapshotDate)),
  dfMetrics = gsm.core::reportingMetrics,
  dfGroups = gsm.core::reportingGroups,
  strGroupSubset = "all"
)
#> Parsed 32,16,0,1,2 to numeric vector: 32, 16, 0, 1, 2
#> Parsed 8,0,0,4,8 to numeric vector: 8, 0, 0, 4, 8
#> Parsed 8,4,0,8,16 to numeric vector: 8, 4, 0, 8, 16
#> Parsed 0,0,0,16,32 to numeric vector: 0, 0, 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,0,0,8,16 to numeric vector: 0, 0, 0, 8, 16
#> Parsed 0,8,16 to numeric vector: 0, 8, 16
#> Parsed 0,4,8 to numeric vector: 0, 4, 8
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2



# country-level report
reportingMetrics <- gsm.core::reportingMetrics
reportingMetrics$GroupLevel <- "Country"
Widget_GroupOverview(
  dfResults = dplyr::filter(gsm.core::reportingResults, SnapshotDate == max(SnapshotDate)),
  dfMetrics = gsm.core::reportingMetrics,
  dfGroups = gsm.core::reportingGroups,
  strGroupLevel = "Country"
)
#> Parsed 32,16,0,1,2 to numeric vector: 32, 16, 0, 1, 2
#> Parsed 8,0,0,4,8 to numeric vector: 8, 0, 0, 4, 8
#> Parsed 8,4,0,8,16 to numeric vector: 8, 4, 0, 8, 16
#> Parsed 0,0,0,16,32 to numeric vector: 0, 0, 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,16,32 to numeric vector: 0, 16, 32
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,0,0,8,16 to numeric vector: 0, 0, 0, 8, 16
#> Parsed 0,8,16 to numeric vector: 0, 8, 16
#> Parsed 0,4,8 to numeric vector: 0, 4, 8
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed -2,-1,0,1,2 to numeric vector: -2, -1, 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2
#> Parsed 0,1,2 to numeric vector: 0, 1, 2