support 'sub-locales' and better example to showoff date localization

Author: cpsievert

R/layout.R

@@ -90,24 +90,29 @@ rangeslider <- function(p, start = NULL, end = NULL, ...) {
 #' \url{https://github.com/plotly/plotly.js/blob/master/src/plot_api/plot_config.js}
 #' @param collaborate include the collaborate mode bar button (unique to the R pkg)?
 #' @param cloud include the send data to cloud button?
-#' @param locale locale to use. See [here](https://github.com/plotly/plotly.js/tree/master/dist#to-include-localization) for more info
+#' @param locale locale to use. See [here](https://github.com/plotly/plotly.js/tree/master/dist#to-include-localization) for more info.
 #' @author Carson Sievert
 #' @export
 #' @examples
 #' 
-#' p <- plot_ly(x = rnorm(1000))
+#' today <- Sys.Date()
+#' x <- seq.Date(today, today + 360, by = "day")
+#' p <- plot_ly(x = x, y = rnorm(length(x))) %>%
+#'   add_lines()
 #' 
 #' # remove the plotly logo and collaborate button from modebar
 #' config(p, displaylogo = FALSE, collaborate = FALSE)
 #' 
+#' #' # japanese
+#' config(p, locale = "ja")
+#' #' # german
+#' config(p, locale = "de")
+#' # swiss-german
+#' config(p, locale = "de-CH")
 #' # spanish
 #' config(p, locale = "es")
-#' # german
-#' config(p, locale = "de")
 #' # french
 #' config(p, locale = "fr")
-#' # japanese
-#' config(p, locale = "ja")
 #' 
 
 config <- function(p, ..., collaborate = TRUE, cloud = FALSE, locale = NULL) {

R/plotly.R

@@ -455,11 +455,20 @@ locale_dependency <- function(locale) {
     )
   }
 
+  
+  # some locales rely on a base/main locale (e.g. de-CH relies on de)
+  # https://codepen.io/etpinard/pen/pKvLVX?editors=1010
+  scripts <- paste0(locale, ".js")
+  if (grepl("-", locale)) {
+    locale_main <- strsplit(locale, "-")[[1]][1]
+    scripts <- c(scripts, paste0(locale_main, ".js"))
+  }
+  
   htmltools::htmlDependency(
     name = paste0("plotly-locale-", locale),
     version = plotlyMainBundle()$version,
     src = list(file = locale_dir),
-    script = paste0(locale, ".js"),
+    script = scripts,
     all_files = FALSE
   )
 }