Update of the billboard.js library to 3.10.0. + new theme

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: billboarder
 Title: Create Interactive Chart with the JavaScript 'Billboard' Library
-Version: 0.4.1
+Version: 0.4.1.9000
 Authors@R: c(
   person("Victor", "Perrier", email = "[email protected]", role = c("aut", "cre")),
   person("Fanny", "Meyer", role = "aut"),

NEWS.md

@@ -1,3 +1,11 @@
+billboarder 0.4.2
+==================
+
+* Update of the billboard.js library to 3.10.0.
+* `set_theme()` : new theme modern available.
+
+
+
 billboarder 0.4.1
 ==================
 

R/bb_helpers.R

@@ -1614,7 +1614,7 @@ bb_radarchart <- function(bb, data, mapping = NULL, ...) {
 #' @param mapping Mapping of variables on the chart, see \code{\link{bbaes}}.
 #' @param ... Arguments passed to \code{\link{bb_treemap}}.
 #'
-#' @return
+#' @return A \code{billboard} \code{htmlwidget} object.
 #' @export
 #'
 #' @examples

R/billboarder.R

@@ -79,7 +79,7 @@ billboard_dependencies <- function() {
   }
   htmlDependency(
     name = "billboard", 
-    version = "3.9.4", 
+    version = "3.10.0", 
     src = c(file = "htmlwidgets/lib"),
     package = "billboarder",
     script = "billboard/billboard.pkgd.min.js",

R/theme.R

@@ -1,8 +1,8 @@
 
 #' Set theme and default colors for Billboard charts
 #'
-#' @param name Name of the theme, possible values are : \code{"billboard"},
-#'  \code{"insight"}, \code{"graph"}, \code{"datalab"}.
+#' @param name Name of the theme, possible values are : `"billboard"`,
+#'  `"insight"`, `"graph"`, `"datalab"`, `"modern"`.
 #' 
 #' @note You can only use one theme and palette at a time (in Shiny applications or Markdown documents).
 #'
@@ -28,7 +28,7 @@
 #'   bb_legend(position = "inset", inset = list(anchor = "top-right")) %>% 
 #'   bb_labs(title = "Renewable energy production",
 #'           caption = "Data source: RTE (https://opendata.rte-france.com)")
-set_theme <- function(name = c("billboard", "insight", "graph", "datalab")) {
+set_theme <- function(name = c("billboard", "insight", "graph", "datalab", "modern")) {
   name <- match.arg(arg = name)
   options("billboard.theme" = paste0(name, ".min.css"))
 }