only add 'main' locale if it makes sense to

Author: cpsievert

R/layout.R

@@ -103,16 +103,18 @@ rangeslider <- function(p, start = NULL, end = NULL, ...) {
 #' # remove the plotly logo and collaborate button from modebar
 #' config(p, displaylogo = FALSE, collaborate = FALSE)
 #' 
-#' #' # japanese
+#' # japanese
 #' config(p, locale = "ja")
-#' #' # german
+#' # german
 #' config(p, locale = "de")
 #' # swiss-german
 #' config(p, locale = "de-CH")
 #' # spanish
 #' config(p, locale = "es")
 #' # french
 #' config(p, locale = "fr")
+#' # chinese
+#' config(p, locale = "zh-CN")
 #' 
 
 config <- function(p, ..., collaborate = TRUE, cloud = FALSE, locale = NULL) {

R/plotly.R

@@ -461,7 +461,9 @@ locale_dependency <- function(locale) {
   scripts <- paste0(locale, ".js")
   if (grepl("-", locale)) {
     locale_main <- strsplit(locale, "-")[[1]][1]
-    scripts <- c(scripts, paste0(locale_main, ".js"))
+    if (locale_main %in% locales_all) {
+      scripts <- c(scripts, paste0(locale_main, ".js"))
+    }
   }
 
   htmltools::htmlDependency(