Report_meta updates

R/graph_utils.R

@@ -581,7 +581,7 @@ plot_title_nsubj <- function(datain, plot_data, by) {
   } else {
     plot_data <- bind_cols(plot_data, adsin_count)
   }
-  return(plot_data)
+  plot_data
 }
 
 #' Convert dataframe into ggplot object table

R/tbl_display.R

@@ -22,8 +22,8 @@
 #' @param extra_mergeby Variables to merge `extra_df` by, if present.
 #' @param dropvars Variables additional to standard present in input data to be removed from output
 #' @param keepvars Specific variables to be retained in report in addition to grouping and value
-#' columns. If `keepvars` is given it overrides `dropvars` and the columns are located as last columns
-#' of the output.
+#' columns. If `keepvars` is given it overrides `dropvars` and the columns are located as last
+#' columns of the output.
 #' @param disp_value_col Hide/Show value column from the final display.
 #' @param addrowvars Group Variable(s) to be removed as a column and instead used as row headers
 #' in the value column.

R/utils.R

@@ -41,7 +41,7 @@ data_attrib <- function(datain) {
     ),
     c("VAR_NAMES", "VAR_LABEL")
   )
-  return(data_attr)
+  data_attr
 }
 
 
@@ -122,7 +122,7 @@ round_f <- function(x, digits = 2) {
 fmtrd <- function(f, d = 2, ...) {
   function(x) {
     dc <- do.call(f, args = list(x, na.rm = TRUE, ...))
-    return(ifelse(is.na(dc), "-", round_f(dc, d)))
+    ifelse(is.na(dc), "-", round_f(dc, d))
   }
 }
 
@@ -526,20 +526,26 @@ get_report_meta <- function() {
     ~REPTYPE,
     "Any",
     "ADAE",
-    "adae_r001",
+    "adae_tier_summary",
     "Summary of Adverse Events by System Organ Class and Preferred Term",
     "2.1",
     "Table",
     "Any",
     "ADAE",
-    "Forest Plot",
-    "Forest plot for adverse events",
+    "adae_risk_summary",
+    "Relative Risk of Adverse Events by System Organ Class and Preferred Term",
     "2.2",
+    "Table",
+    "Any",
+    "ADAE",
+    "Forest Plot",
+    "Forest plot for Adverse Events",
+    "2.3",
     "Figure",
     "Any",
     "ADAE",
     "Volcano Plot",
-    "Volcano plot for adverse events",
+    "Volcano plot for Adverse Events",
     "2.4",
     "Figure",
     "Any",
@@ -548,6 +554,24 @@ get_report_meta <- function() {
     "Event analysis of MedRA query",
     "2.5",
     "Figure",
+    "Any",
+    "ADAE",
+    "Tornado Plot",
+    "Tornado plot for Adverse Events",
+    "2.6",
+    "Figure",
+    "Any",
+    "ADSL",
+    "adsl_summary",
+    "Demographic Summary",
+    "3.1",
+    "Table",
+    "Oncology",
+    "ADTTE",
+    "KM Plot",
+    "Kaplan Meier Plot for Time to Events",
+    "4.1",
+    "Figure",
   )
 }