chore: rename internal functions too

Author: vedhav

R/tm_p_spiderplot.R

@@ -117,8 +117,8 @@ tm_p_spiderplot <- function(label = "Spiderplot",
 
   module(
     label = label,
-    ui = ui_g_spiderplot,
-    server = srv_g_spiderplot,
+    ui = ui_p_spiderplot,
+    server = srv_p_spiderplot,
     ui_args = list(height = plot_height),
     server_args = list(
       plot_dataname = plot_dataname,
@@ -139,7 +139,7 @@ tm_p_spiderplot <- function(label = "Spiderplot",
 }
 
 
-ui_g_spiderplot <- function(id, height) {
+ui_p_spiderplot <- function(id, height) {
   ns <- NS(id)
   bslib::page_sidebar(
     sidebar = div(
@@ -171,7 +171,7 @@ ui_g_spiderplot <- function(id, height) {
   )
 }
 
-srv_g_spiderplot <- function(id,
+srv_p_spiderplot <- function(id,
                              data,
                              plot_dataname,
                              time_var,

R/tm_p_swimlane.R

@@ -106,8 +106,8 @@ tm_p_swimlane <- function(label = "Swimlane",
   }
   module(
     label = label,
-    ui = ui_g_swimlane,
-    server = srv_g_swimlane,
+    ui = ui_p_swimlane,
+    server = srv_p_swimlane,
     datanames = c(plot_dataname, table_datanames),
     ui_args = list(height = plot_height),
     server_args = list(
@@ -127,7 +127,7 @@ tm_p_swimlane <- function(label = "Swimlane",
   )
 }
 
-ui_g_swimlane <- function(id, height) {
+ui_p_swimlane <- function(id, height) {
   ns <- NS(id)
   bslib::page_sidebar(
     sidebar = div(
@@ -153,7 +153,7 @@ ui_g_swimlane <- function(id, height) {
     )
   )
 }
-srv_g_swimlane <- function(id,
+srv_p_swimlane <- function(id,
                            data,
                            plot_dataname,
                            time_var,

R/tm_p_waterfall.R

@@ -91,8 +91,8 @@ tm_p_waterfall <- function(label = "Waterfall",
 
   module(
     label = label,
-    ui = ui_g_waterfall,
-    server = srv_g_waterfall,
+    ui = ui_p_waterfall,
+    server = srv_p_waterfall,
     datanames = union(plot_dataname, table_datanames),
     ui_args = list(height = plot_height),
     server_args = list(
@@ -111,7 +111,7 @@ tm_p_waterfall <- function(label = "Waterfall",
   )
 }
 
-ui_g_waterfall <- function(id, height) {
+ui_p_waterfall <- function(id, height) {
   ns <- NS(id)
 
   bslib::page_sidebar(
@@ -142,7 +142,7 @@ ui_g_waterfall <- function(id, height) {
     )
   )
 }
-srv_g_waterfall <- function(id,
+srv_p_waterfall <- function(id,
                             data,
                             plot_dataname,
                             subject_var,