swiss german doesn't have localization yet

Author: cpsievert

R/layout.R

@@ -95,8 +95,10 @@ rangeslider <- function(p, start = NULL, end = NULL, ...) {
 #' @export
 #' @examples
 #' 
-#' config(plot_ly(), displaylogo = FALSE, collaborate = FALSE)
-#' config(plot_ly(), locale = "de-CH")
+#' p <- plot_ly(x = rnorm(1000))
+#' 
+#' config(p, displaylogo = FALSE, collaborate = FALSE)
+#' config(p, locale = "de")
 
 config <- function(p, ..., collaborate = TRUE, cloud = FALSE, locale = NULL) {