revert to unprefixed call

llrs-roche · llrs-roche · commit c440364f2727 · 2025-02-19T14:02:15.000+01:00
diff --git a/R/tm_g_bivariate.R b/R/tm_g_bivariate.R
@@ -1024,15 +1024,15 @@ facet_ggplot_call <- function(row_facet = character(0),
     NULL
   } else if (!identical(row_facet, character(0)) && !identical(col_facet, character(0))) {
     call(
-      "ggplot2::facet_grid",
+      "facet_grid",
       rows = call_fun_dots("vars", row_facet),
       cols = call_fun_dots("vars", col_facet),
       scales = scales
     )
   } else if (identical(row_facet, character(0)) && !identical(col_facet, character(0))) {
-    call("ggplot2::facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)
+    call("facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)
   } else if (!identical(row_facet, character(0)) && identical(col_facet, character(0))) {
-    call("ggplot2::facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)
+    call("facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1024,15 +1024,15 @@ facet_ggplot_call <- function(row_facet = character(0),`
`1024`	`1024`	`NULL`
`1025`	`1025`	`} else if (!identical(row_facet, character(0)) && !identical(col_facet, character(0))) {`
`1026`	`1026`	`call(`
`1027`		`- "ggplot2::facet_grid",`
	`1027`	`+ "facet_grid",`
`1028`	`1028`	`rows = call_fun_dots("vars", row_facet),`
`1029`	`1029`	`cols = call_fun_dots("vars", col_facet),`
`1030`	`1030`	`scales = scales`
`1031`	`1031`	`)`
`1032`	`1032`	`} else if (identical(row_facet, character(0)) && !identical(col_facet, character(0))) {`
`1033`		`- call("ggplot2::facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)`
	`1033`	`+ call("facet_grid", cols = call_fun_dots("vars", col_facet), scales = scales)`
`1034`	`1034`	`} else if (!identical(row_facet, character(0)) && identical(col_facet, character(0))) {`
`1035`		`- call("ggplot2::facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)`
	`1035`	`+ call("facet_grid", rows = call_fun_dots("vars", row_facet), scales = scales)`
`1036`	`1036`	`}`
`1037`	`1037`	`}`
`1038`	`1038`