add gt_theme_savant w/ new dev version numbering

andreweatherman · May 10, 2024 · b99c3f8 · b99c3f8
1 parent eebfbe4
commit b99c3f8
Show file tree

Hide file tree

Showing 34 changed files with 651 additions and 540 deletions.
diff --git a/.Rhistory b/.Rhistory
diff --git a/.Rproj.user/F7318DF6/pcs/files-pane.pper b/.Rproj.user/F7318DF6/pcs/files-pane.pper
@@ -5,5 +5,5 @@
             "ascending": true
         }
     ],
-    "path": "~/cbbplotR/data-raw"
+    "path": "~/cbbplotR"
 }
diff --git a/.Rproj.user/F7318DF6/pcs/source-pane.pper b/.Rproj.user/F7318DF6/pcs/source-pane.pper
@@ -1,3 +1,3 @@
 {
-    "activeTab": 3
+    "activeTab": 2
 }
diff --git a/.Rproj.user/F7318DF6/pcs/windowlayoutstate.pper b/.Rproj.user/F7318DF6/pcs/windowlayoutstate.pper
@@ -6,7 +6,7 @@
         "windowheight": 772
     },
     "right": {
-        "splitterpos": 479,
+        "splitterpos": 366,
         "topwindowstate": "NORMAL",
         "panelheight": 734,
         "windowheight": 772

diff --git a/.Rproj.user/F7318DF6/pcs/workbench-pane.pper b/.Rproj.user/F7318DF6/pcs/workbench-pane.pper
@@ -1,5 +1,5 @@
 {
     "TabSet1": 0,
-    "TabSet2": 0,
+    "TabSet2": 4,
     "TabZoom": {}
 }
diff --git a/.Rproj.user/F7318DF6/sources/prop/262F9DD4 b/.Rproj.user/F7318DF6/sources/prop/262F9DD4
@@ -1,6 +1,6 @@
 {
     "source_window_id": "",
     "Source": "Source",
-    "cursorPosition": "2,12",
+    "cursorPosition": "2,9",
     "scrollLine": "0"
 }
diff --git a/.Rproj.user/F7318DF6/sources/prop/297CAAA6 b/.Rproj.user/F7318DF6/sources/prop/297CAAA6
@@ -1,6 +1,6 @@
 {
     "source_window_id": "",
     "Source": "Source",
-    "cursorPosition": "49,25",
+    "cursorPosition": "51,16",
     "scrollLine": "38"
 }
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: cbbplotR
 Title: CBB Logo Plots in 'ggplot2'
-Version: 0.3.0
+Version: 0.3.0.9000
 Authors@R: 
     person("Andrew", "Weatherman", , "[email protected]", role = c("aut", "cre"))
 Description: A set of functions to visualize college basketball team and conference

diff --git a/NAMESPACE b/NAMESPACE
@@ -28,6 +28,7 @@ export(gt_color_results)
 export(gt_set_font)
 export(gt_theme_athletic)
 export(gt_theme_pl)
+export(gt_theme_savant)
 export(scale_color_cbb_conferences)
 export(scale_color_cbb_teams)
 export(scale_colour_cbb_conferences)

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,6 @@
+# cbbplotR 0.3.0.9000 (in progress)
+- Added [`gt_theme_savant`](https://cbbplotr.aweatherman.com/reference/gt_theme_savant.html)
+
 # cbbplotR 0.3.0
 - Added [`gt_theme_pl`](https://cbbplotr.aweatherman.com/reference/gt_theme_pl.html)
 - Added ability to customize the amount of vertical alignment in `gt_cbb_teams` and `gt_cbb_conferences`.

diff --git a/R/gt-utils.R b/R/gt-utils.R
@@ -418,6 +418,80 @@ gt_theme_athletic <- function(gt_object, ...) {
 
 }
 
+#' Baseball Savant `gt` Table Theme
+#'
+#' A theme for styling `gt` tables similar to Baseball Savant.
+#'
+#' @returns Returns data with an appended HTML column.
+#' @param gt_object An existing gt table object of class `gt_tbl`
+#' @param ... Optional additional arguments to `gt::table_options()`
+#' @import gt
+#' @importFrom magrittr %>%
+#'
+#' @export
+gt_theme_savant <- function(gt_object, ...) {
+
+  stopifnot(`'gt_object' must be a 'gt_tbl', have you accidentally passed raw data?` = "gt_tbl" %in%
+              class(gt_object))
+
+  table_id <- subset(gt_object[['_options']], parameter == 'table_id')$value[[1]]
+
+  if (is.na(table_id)) {
+    table_id <- gt::random_id()
+    opt_position <- which("table_id" %in% gt_object[["_options"]][["parameter"]])[[1]]
+    gt_object[["_options"]][["value"]][[opt_position]] <- table_id
+  }
+
+  gt_object %>%
+    # cell body
+    gt::tab_style(locations = gt::cells_body(),
+                  style = gt::cell_text(font = gt::google_font('Roboto Condensed'), size = px(14))) %>%
+    # col. headers
+    gt::tab_style(locations = gt::cells_column_labels(),
+                  style = gt::cell_text(weight = 'bold', font = gt::google_font('Roboto Condensed'), size = px(14))) %>%
+    # group rows
+    gt::tab_style(locations = gt::cells_row_groups(),
+                  style = gt::cell_text(weight = 'bold', font = gt::google_font('Roboto Condensed'), size = px(14))) %>%
+    # footnote
+    gt::tab_style(locations = gt::cells_footnotes(),
+                  style = gt::cell_text(font = gt::google_font('Roboto Condensed'), size = px(12))) %>%
+    # title
+    gt::tab_style(locations = gt::cells_title('title'),
+                  style = gt::cell_text(weight = 'bold', font = gt::google_font('Roboto Condensed'), size = px(18))) %>%
+    # subtitle
+    gt::tab_style(locations = gt::cells_title('subtitle'),
+                  style = gt::cell_text(font = gt::google_font('Roboto Condensed'), size = px(14))) %>%
+    # caption
+    gt::tab_style(locations = gt::cells_source_notes(),
+                  style = gt::cell_text(font = gt::google_font('Roboto Condensed'), size = px(10))) %>%
+    gt::tab_options(
+      data_row.padding = 1,
+      table_body.hlines.color = "transparent",
+      column_labels.border.top.color = 'black',
+      column_labels.border.top.width = px(1),
+      column_labels.border.bottom.style = 'none',
+      row_group.border.top.style = "none",
+      row_group.border.top.color = "black",
+      row_group.border.bottom.width = px(1),
+      row_group.border.bottom.color = "black",
+      row_group.border.bottom.style = 'solid',
+      row_group.padding = px(1.5),
+      heading.align = 'center',
+      heading.border.bottom.style = "none",
+      table_body.border.top.style = "none",
+      table_body.border.bottom.color = "white",
+      table.border.bottom.style = 'none',
+      table.border.top.style = 'none',
+      source_notes.border.lr.style = "none",
+      ...
+    ) %>%
+    gt::opt_row_striping() %>%
+    gt::opt_css(c(paste0("#", table_id, " tbody tr:last-child {border-bottom: 2px solid #ffffff00;}"),
+                  paste0("#", table_id, " .gt_col_heading {padding-bottom: 2px; padding-top: 2px;}"),
+                  paste0("#", table_id, " .gt_subtitle {padding-top:0px !important; padding-bottom: 4px !important;}"),
+                  paste0("#", table_id, " .gt_heading {padding-bottom: 0px; padding-top: 6px;}")))
+
+}
 
 #' Premier League `gt` Table Theme
 #'

diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -56,6 +56,7 @@ reference:
   - gt_bold_rows
   - gt_theme_athletic
   - gt_theme_pl
+  - gt_theme_savant
 - title: Other Functions
   desc: Miscellaneous functions
   contents:

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   getting_started: getting_started.html
-last_built: 2024-04-12T16:59Z
+last_built: 2024-05-10T18:15Z
 urls:
   reference: https://andreweatherman.github.io/cbbplotR/reference
   article: https://andreweatherman.github.io/cbbplotR/articles

diff --git a/docs/reference/cbbplotR-package.html b/docs/reference/cbbplotR-package.html
diff --git a/docs/reference/cbbplotR_clear_cache.html b/docs/reference/cbbplotR_clear_cache.html
diff --git a/docs/reference/geom_cbb_conferences.html b/docs/reference/geom_cbb_conferences.html
diff --git a/docs/reference/geom_cbb_headshots.html b/docs/reference/geom_cbb_headshots.html
diff --git a/docs/reference/geom_cbb_teams.html b/docs/reference/geom_cbb_teams.html
diff --git a/docs/reference/geom_lines.html b/docs/reference/geom_lines.html
diff --git a/docs/reference/ggplot_cbb_logo_title.html b/docs/reference/ggplot_cbb_logo_title.html
diff --git a/docs/reference/ggpreview.html b/docs/reference/ggpreview.html
diff --git a/docs/reference/gt_cbb_logo_title.html b/docs/reference/gt_cbb_logo_title.html
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/pipe.html b/docs/reference/pipe.html
diff --git a/docs/reference/scale_cbb.html b/docs/reference/scale_cbb.html
diff --git a/docs/search.json b/docs/search.json
diff --git a/docs/sitemap.xml b/docs/sitemap.xml
@@ -81,6 +81,9 @@
   <url>
     <loc>https://andreweatherman.github.io/cbbplotR/reference/gt_theme_pl.html</loc>
   </url>
+  <url>
+    <loc>https://andreweatherman.github.io/cbbplotR/reference/gt_theme_savant.html</loc>
+  </url>
   <url>
     <loc>https://andreweatherman.github.io/cbbplotR/reference/index.html</loc>
   </url>
-Original file line number
+Diff line change
@@ Expand Up / @@ -81,6 +81,9 @@ @@
       <url>
         <loc>https://andreweatherman.github.io/cbbplotR/reference/gt_theme_pl.html</loc>
       </url>
+      <url>
+        <loc>https://andreweatherman.github.io/cbbplotR/reference/gt_theme_savant.html</loc>
+      </url>
       <url>
         <loc>https://andreweatherman.github.io/cbbplotR/reference/index.html</loc>
       </url>
@@ Expand Down @@