Add font-family support to add_title, add_subtitle, add_source

DESCRIPTION

@@ -1,51 +1,51 @@
-Package: reactablefmtr
-Type: Package
-Title: Streamlined Table Styling and Formatting for Reactable
-Version: 2.1.0
-Authors@R: c(
-    person("Kyle", "Cuilla", role = c("aut", "cre", "cph"), email = "kyle.cuilla@gmail.com"),
-    person("Greg", "Lin", role = c("ctb")),
-    person("June", "Choe", role = c("ctb")),
-    person("Kent", "Russell", role = c("ctb"))
-    )
-Maintainer: Kyle Cuilla <kyle.cuilla@gmail.com>
-Description: Provides various features to streamline and enhance the styling of interactive 
-    reactable tables with easy-to-use and highly-customizable functions and themes. 
-    Apply conditional formatting to cells with data bars, color scales, color tiles,
-    and icon sets. Utilize custom table themes inspired by popular websites such 
-    and bootstrap themes. Apply sparkline line & bar charts 
-    (note this feature requires the 'dataui' package which can be downloaded from
-    <https://github.com/timelyportfolio/dataui>).
-    Increase the portability and reproducibility of reactable tables by embedding images 
-    from the web directly into cells. Save the final table output as a static image or 
-    interactive file.
-URL: https://kcuilla.github.io/reactablefmtr/, https://github.com/kcuilla/reactablefmtr
-BugReports: https://github.com/kcuilla/reactablefmtr/issues
-License: MIT + file LICENSE
-Encoding: UTF-8
-Depends: 
-    R (>= 3.5.0),
-    reactable (>= 0.2.0)
-Imports: 
-    dplyr,
-    glue,
-    grDevices,
-    htmltools,
-    htmlwidgets (>= 1.5.3),
-    magrittr,
-    purrr,
-    sass (>= 0.4.0),
-    shiny,
-    stats,
-    stringr (>= 1.4.0),
-    tippy (>= 0.1.0),
-    tools,
-    webshot2
-Suggests:
-    dataui (>= 0.0.1),
-    MASS,
-    scales
-Additional_repositories:
-    https://kcuilla.github.io/drat/
-RoxygenNote: 7.1.1
-Language: en-US
+Package: reactablefmtr
+Type: Package
+Title: Streamlined Table Styling and Formatting for Reactable
+Version: 2.1.1
+Authors@R: c(
+    person("Kyle", "Cuilla", role = c("aut", "cre", "cph"), email = "kyle.cuilla@gmail.com"),
+    person("Greg", "Lin", role = c("ctb")),
+    person("June", "Choe", role = c("ctb")),
+    person("Kent", "Russell", role = c("ctb"))
+    )
+Maintainer: Kyle Cuilla <kyle.cuilla@gmail.com>
+Description: Provides various features to streamline and enhance the styling of interactive 
+    reactable tables with easy-to-use and highly-customizable functions and themes. 
+    Apply conditional formatting to cells with data bars, color scales, color tiles,
+    and icon sets. Utilize custom table themes inspired by popular websites such 
+    and bootstrap themes. Apply sparkline line & bar charts 
+    (note this feature requires the 'dataui' package which can be downloaded from
+    <https://github.com/timelyportfolio/dataui>).
+    Increase the portability and reproducibility of reactable tables by embedding images 
+    from the web directly into cells. Save the final table output as a static image or 
+    interactive file.
+URL: https://kcuilla.github.io/reactablefmtr/, https://github.com/kcuilla/reactablefmtr
+BugReports: https://github.com/kcuilla/reactablefmtr/issues
+License: MIT + file LICENSE
+Encoding: UTF-8
+Depends: 
+    R (>= 3.5.0),
+    reactable (>= 0.2.0)
+Imports: 
+    dplyr,
+    glue,
+    grDevices,
+    htmltools,
+    htmlwidgets (>= 1.5.3),
+    magrittr,
+    purrr,
+    sass (>= 0.4.0),
+    shiny,
+    stats,
+    stringr (>= 1.4.0),
+    tippy (>= 0.1.0),
+    tools,
+    webshot2
+Suggests:
+    dataui (>= 0.0.1),
+    MASS,
+    scales
+Additional_repositories:
+    https://kcuilla.github.io/drat/
+RoxygenNote: 7.2.3
+Language: en-US

R/table_elements.R

@@ -27,6 +27,9 @@
 #'     Options are "bold" or "normal".
 #'     Default is "bold".
 #'
+#' @param font-family The font family of the title.
+#'     Default is NULL.
+#'
 #' @param text_decoration Add an underline, overline, or line-through title.
 #'     Default is NULL.
 #'
@@ -77,6 +80,7 @@ add_title <- function(table = NULL,
                       font_size = 32,
                       font_style = "normal",
                       font_weight = "bold",
+                      font_family = NULL,
                       text_decoration = NULL,
                       text_transform = NULL,
                       letter_spacing = NULL,
@@ -127,6 +131,7 @@ add_title <- function(table = NULL,
                                       "font-size:", font_size, "px;",
                                       "font-style:", font_style, ";",
                                       "font-weight:", font_weight, ";",
+                                      "font-family:", font_family, ";",
                                       "text-decoration:", text_decoration, ";",
                                       "letter-spacing:", letter_spacing, "px;",
                                       "word-spacing:", word_spacing, "px;",
@@ -171,6 +176,9 @@ add_title <- function(table = NULL,
 #'      Options are "bold" or "normal".
 #'      Default is "bold".
 #'
+#' @param font-family The font family of the title.
+#'     Default is NULL.
+#'
 #' @param text_decoration Add an underline, overline, or line-through subtitle.
 #'      Options are "underline", "overline", "underline overline", or "line-through".
 #'      Default is NULL.
@@ -227,6 +235,7 @@ add_subtitle <- function(table = NULL,
                          font_size = 24,
                          font_style = "normal",
                          font_weight = "bold",
+                         font_family = NULL,
                          text_decoration = NULL,
                          text_transform = NULL,
                          letter_spacing = NULL,
@@ -283,6 +292,7 @@ add_subtitle <- function(table = NULL,
                                       "font-size:", font_size, "px;",
                                       "font-style:", font_style, ";",
                                       "font-weight:", font_weight, ";",
+                                      "font-family:", font_family, ";",
                                       "text-decoration:", text_decoration, ";",
                                       "letter-spacing:", letter_spacing, "px;",
                                       "word-spacing:", word_spacing, "px;",
@@ -325,7 +335,10 @@ add_subtitle <- function(table = NULL,
 #'
 #' @param font_weight The font weight of the source.
 #'      Options are "bold" or "normal".
-#'      Default is "normal".
+#'      Default is "normal"
+#'
+#' @param font-family The font family of the title.
+#'     Default is NULL.
 #'
 #' @param text_decoration Add an underline, overline, or line-through source.
 #'      Options are "underline", "overline", "underline overline", or "line-through".
@@ -378,6 +391,7 @@ add_source <- function(table = NULL,
                         font_size = 16,
                         font_style = "normal",
                         font_weight = "normal",
+                        font_family = NULL,
                         text_decoration = NULL,
                         text_transform = NULL,
                         letter_spacing = NULL,
@@ -433,6 +447,7 @@ add_source <- function(table = NULL,
                                      "font-size:", font_size, "px;",
                                      "font-style:", font_style, ";",
                                      "font-weight:", font_weight, ";",
+                                     "font-family:", font_family, ";",
                                      "text-decoration:", text_decoration, ";",
                                      "letter-spacing:", letter_spacing, "px;",
                                      "word-spacing:", word_spacing, "px;",