Move TealReportCard to teal (#217)

insightsengineering/teal#864

Author: gogonzo

R/tm_g_ae_oview.R

@@ -370,7 +370,7 @@ srv_g_ae_oview <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("AE Overview")
         card$append_text("AE Overview", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_ae_sub.R

@@ -390,7 +390,7 @@ srv_g_ae_sub <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("AE Subgroups")
         card$append_text("AE Subgroups", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_butterfly.R

@@ -530,7 +530,7 @@ srv_g_butterfly <- function(id, data, filter_panel_api, reporter, dataname, labe
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Butterfly")
         card$append_text("Butterfly Plot", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_events_term_id.R

@@ -378,7 +378,7 @@ srv_g_events_term_id <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Events by Term")
         card$append_text("Events by Term", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_heat_bygrade.R

@@ -496,7 +496,7 @@ srv_g_heatmap_bygrade <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Heatmap by Grade")
         card$append_text("Heatmap by Grade", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_patient_profile.R

@@ -952,7 +952,7 @@ srv_g_patient_profile <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Patient Profile")
         card$append_text("Patient Profile", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_spiderplot.R

@@ -439,7 +439,7 @@ srv_g_spider <- function(id, data, filter_panel_api, reporter, dataname, label,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Spider Plot")
         card$append_text("Spider Plot", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_swimlane.R

@@ -539,7 +539,7 @@ srv_g_swimlane <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Swimlane")
         card$append_text("Swimlane Plot", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())

R/tm_g_waterfall.R

@@ -560,7 +560,7 @@ srv_g_waterfall <- function(id,
     ### REPORTER
     if (with_reporter) {
       card_fun <- function(comment) {
-        card <- teal.reporter::TealReportCard$new()
+        card <- teal::TealReportCard$new()
         card$set_name("Waterfall")
         card$append_text("Waterfall Plot", "header2")
         if (with_filter) card$append_fs(filter_panel_api$get_filter_state())