Merge branch 'master' into skip-img-windows

rstudio · Apr 24, 2024 · 0d24445 · 0d24445
2 parents fa8d124 + 8f65117
commit 0d24445
Show file tree

Hide file tree

Showing 119 changed files with 300 additions and 210 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -31,7 +31,7 @@ BugReports: https://github.com/rstudio/gt/issues
 Encoding: UTF-8
 LazyData: true
 ByteCompile: true
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 Depends:
     R (>= 3.2.0)
 Imports:

diff --git a/NAMESPACE b/NAMESPACE
@@ -1,10 +1,56 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(add_text_style,character)
+S3method(add_text_style,shiny.tag)
 S3method(as.data.frame,gt_tbl)
+S3method(cell_style_to_html,cell_border)
+S3method(cell_style_to_html,cell_fill)
+S3method(cell_style_to_html,cell_text)
+S3method(cell_style_to_html,default)
 S3method(plot,gt_gtable)
 S3method(print,gt_group)
 S3method(print,gt_tbl)
 S3method(print,rtf_text)
+S3method(resolve_location,cells_body)
+S3method(resolve_location,cells_column_labels)
+S3method(resolve_location,cells_column_spanners)
+S3method(resolve_location,cells_row_groups)
+S3method(resolve_location,cells_stub)
+S3method(resolve_location,resolved)
+S3method(set_footnote,cells_body)
+S3method(set_footnote,cells_column_labels)
+S3method(set_footnote,cells_column_spanners)
+S3method(set_footnote,cells_footnotes)
+S3method(set_footnote,cells_grand_summary)
+S3method(set_footnote,cells_row_groups)
+S3method(set_footnote,cells_source_notes)
+S3method(set_footnote,cells_stub)
+S3method(set_footnote,cells_stub_summary)
+S3method(set_footnote,cells_stubhead)
+S3method(set_footnote,cells_summary)
+S3method(set_footnote,cells_title)
+S3method(set_style,cells_body)
+S3method(set_style,cells_column_labels)
+S3method(set_style,cells_column_spanners)
+S3method(set_style,cells_footnotes)
+S3method(set_style,cells_grand_summary)
+S3method(set_style,cells_row_groups)
+S3method(set_style,cells_source_notes)
+S3method(set_style,cells_stub)
+S3method(set_style,cells_stub_grand_summary)
+S3method(set_style,cells_stub_summary)
+S3method(set_style,cells_stubhead)
+S3method(set_style,cells_summary)
+S3method(set_style,cells_title)
+S3method(text_transform_at_location,cells_body)
+S3method(text_transform_at_location,cells_column_labels)
+S3method(text_transform_at_location,cells_column_spanners)
+S3method(text_transform_at_location,cells_row_groups)
+S3method(text_transform_at_location,cells_stub)
+S3method(to_output_location,cells_body)
+S3method(to_output_location,cells_stub)
+S3method(to_output_location,default)
+S3method(to_output_location,output_relative)
 export("%>%")
 export(adjust_luminance)
 export(as_latex)

diff --git a/R/gt-package.R b/R/gt-package.R
@@ -23,5 +23,4 @@
 
 
 #' @keywords internal
-#' @aliases gt-package
 "_PACKAGE"
diff --git a/R/helpers.R b/R/helpers.R
@@ -3318,6 +3318,7 @@ cell_text <- function(
   cell_style_structure(name = "cell_text", obj = style_vals)
 }
 
+#' @export
 cell_style_to_html.cell_text <- function(style) {
 
   css <- unclass(style)
@@ -3437,6 +3438,7 @@ cell_fill <- function(
   cell_style_structure("cell_fill", style_vals)
 }
 
+#' @export
 cell_style_to_html.cell_fill <- function(style) {
 
   css <- list()
@@ -3642,6 +3644,7 @@ cell_borders <- function(
   as_style(style = style_list)
 }
 
+#' @export
 cell_style_to_html.cell_border <- function(style) {
 
   css <- unclass(style)

diff --git a/R/location_methods.R b/R/location_methods.R
@@ -263,11 +263,13 @@ resolve_location <- function(loc, data) {
   UseMethod("resolve_location")
 }
 
+#' @export
 resolve_location.resolved <- function(loc, data) {
   # The object is already resolved
   loc
 }
 
+#' @export
 resolve_location.cells_body <- function(loc, data) {
 
   loc$colnames <-
@@ -286,6 +288,7 @@ resolve_location.cells_body <- function(loc, data) {
   loc
 }
 
+#' @export
 resolve_location.cells_column_labels <- function(loc, data) {
 
   if (!is.null(loc$columns)) {
@@ -306,6 +309,7 @@ resolve_location.cells_column_labels <- function(loc, data) {
   loc
 }
 
+#' @export
 resolve_location.cells_column_spanners <- function(loc, data) {
 
   resolved <- resolve_cells_column_spanners(data = data, object = loc)
@@ -317,6 +321,7 @@ resolve_location.cells_column_spanners <- function(loc, data) {
   loc
 }
 
+#' @export
 resolve_location.cells_stub <- function(loc, data) {
 
   resolved <- resolve_cells_stub(data = data, object = loc)
@@ -328,6 +333,7 @@ resolve_location.cells_stub <- function(loc, data) {
   loc
 }
 
+#' @export
 resolve_location.cells_row_groups <- function(loc, data) {
 
   resolved <- resolve_cells_row_groups(data = data, object = loc)
@@ -345,6 +351,7 @@ to_output_location <- function(loc, data) {
   UseMethod("to_output_location")
 }
 
+#' @export
 to_output_location.default <- function(loc, data) {
 
   loc <- resolve_location(loc = loc, data = data)
@@ -353,11 +360,13 @@ to_output_location.default <- function(loc, data) {
   loc
 }
 
+#' @export
 to_output_location.output_relative <- function(loc, data) {
   # The object is already output-relative
   loc
 }
 
+#' @export
 to_output_location.cells_body <- function(loc, data) {
 
   stub_df <- dt_stub_df_get(data = data)
@@ -376,6 +385,7 @@ to_output_location.cells_body <- function(loc, data) {
   loc
 }
 
+#' @export
 to_output_location.cells_stub <- function(loc, data) {
 
   stub_df <- dt_stub_df_get(data = data)

diff --git a/R/tab_create_modify.R b/R/tab_create_modify.R
@@ -2433,6 +2433,7 @@ set_footnote <- function(loc, data, footnote, placement) {
   UseMethod("set_footnote")
 }
 
+#' @export
 set_footnote.cells_title <- function(
     loc,
     data,
@@ -2475,6 +2476,7 @@ set_footnote.cells_title <- function(
   data
 }
 
+#' @export
 set_footnote.cells_stubhead <- function(
     loc,
     data,
@@ -2497,6 +2499,7 @@ set_footnote.cells_stubhead <- function(
   data
 }
 
+#' @export
 set_footnote.cells_column_labels <- function(
     loc,
     data,
@@ -2525,6 +2528,7 @@ set_footnote.cells_column_labels <- function(
   data
 }
 
+#' @export
 set_footnote.cells_column_spanners <- function(
     loc,
     data,
@@ -2551,6 +2555,7 @@ set_footnote.cells_column_spanners <- function(
   data
 }
 
+#' @export
 set_footnote.cells_row_groups <- function(
     loc,
     data,
@@ -2585,6 +2590,7 @@ set_footnote.cells_row_groups <- function(
   data
 }
 
+#' @export
 set_footnote.cells_body <- function(
     loc,
     data,
@@ -2613,6 +2619,7 @@ set_footnote.cells_body <- function(
   data
 }
 
+#' @export
 set_footnote.cells_stub <- function(
     loc,
     data,
@@ -2639,6 +2646,7 @@ set_footnote.cells_stub <- function(
   data
 }
 
+#' @export
 set_footnote.cells_summary <- function(
     loc,
     data,
@@ -2655,6 +2663,7 @@ set_footnote.cells_summary <- function(
   )
 }
 
+#' @export
 set_footnote.cells_grand_summary <- function(
     loc,
     data,
@@ -2671,6 +2680,7 @@ set_footnote.cells_grand_summary <- function(
   )
 }
 
+#' @export
 set_footnote.cells_stub_summary <- function(
     loc,
     data,
@@ -2703,6 +2713,7 @@ set_footnote.cells_stub_grand_summary <- function(
   )
 }
 
+#' @export
 set_footnote.cells_source_notes <- function(
     loc,
     data,
@@ -2712,6 +2723,7 @@ set_footnote.cells_source_notes <- function(
   cli::cli_abort("Footnotes cannot be applied to source notes.")
 }
 
+#' @export
 set_footnote.cells_footnotes <- function(
     loc,
     data,
@@ -3502,6 +3514,7 @@ set_style <- function(loc, data, style) {
   UseMethod("set_style")
 }
 
+#' @export
 set_style.cells_title <- function(loc, data, style) {
 
   title_components <- rlang::eval_tidy(loc$groups)
@@ -3537,6 +3550,7 @@ set_style.cells_title <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_stubhead <- function(loc, data, style) {
 
   data <-
@@ -3553,6 +3567,7 @@ set_style.cells_stubhead <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_column_labels <- function(loc, data, style) {
 
   resolved <- resolve_cells_column_labels(data = data, object = loc)
@@ -3575,6 +3590,7 @@ set_style.cells_column_labels <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_column_spanners <- function(loc, data, style) {
 
   resolved <- resolve_cells_column_spanners(data = data, object = loc)
@@ -3595,6 +3611,7 @@ set_style.cells_column_spanners <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_row_groups <- function(loc, data, style) {
 
   row_groups <- dt_row_groups_get(data = data)
@@ -3623,6 +3640,7 @@ set_style.cells_row_groups <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_body <- function(loc, data, style) {
 
   resolved <- resolve_cells_body(data = data, object = loc)
@@ -3645,6 +3663,7 @@ set_style.cells_body <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_stub <- function(loc, data, style) {
 
   resolved <- resolve_cells_stub(data = data, object = loc)
@@ -3665,6 +3684,7 @@ set_style.cells_stub <- function(loc, data, style) {
   data
 }
 
+#' @export
 set_style.cells_summary <- function(loc, data, style) {
 
   add_summary_location_row(
@@ -3675,6 +3695,7 @@ set_style.cells_summary <- function(loc, data, style) {
   )
 }
 
+#' @export
 set_style.cells_grand_summary <- function(loc, data, style) {
 
   add_grand_summary_location_row(
@@ -3685,6 +3706,7 @@ set_style.cells_grand_summary <- function(loc, data, style) {
   )
 }
 
+#' @export
 set_style.cells_stub_summary <- function(loc, data, style) {
 
   add_summary_location_row(
@@ -3695,6 +3717,7 @@ set_style.cells_stub_summary <- function(loc, data, style) {
   )
 }
 
+#' @export
 set_style.cells_stub_grand_summary <- function(loc, data, style) {
 
   add_grand_summary_location_row(
@@ -3705,6 +3728,7 @@ set_style.cells_stub_grand_summary <- function(loc, data, style) {
   )
 }
 
+#' @export
 set_style.cells_footnotes <- function(loc, data, style) {
 
   data <-
@@ -3719,6 +3743,7 @@ set_style.cells_footnotes <- function(loc, data, style) {
     )
 }
 
+#' @export
 set_style.cells_source_notes <- function(loc, data, style) {
 
   data <-
Original file line number	Diff line number	Diff line change
Expand Up		@@ -23,5 +23,4 @@


		#' @keywords internal
		#' @aliases gt-package
		"_PACKAGE"