change hidden sharing option to secret. fixes #474

Author: cpsievert

R/plotly_POST.R

@@ -19,7 +19,7 @@
 #' Plotly to view this graph. You can privately share this graph with other 
 #' Plotly users in your online Plotly account and they will need to be logged 
 #' in to view this plot.
-#' If 'hidden', anyone with this hidden link can view this chart. It will
+#' If 'secret', anyone with this secret link can view this chart. It will
 #' not appear in the Plotly feed, your profile, or search engines. 
 #' If it is embedded inside a webpage or an IPython notebook, anybody who is 
 #' viewing that page will be able to view the graph. 
@@ -36,7 +36,7 @@
 #' }
 
 plotly_POST <- function(x, filename, fileopt = "new", 
-                        sharing = c("public", "private", "hidden")) {
+                        sharing = c("public", "private", "secret")) {
   x <- plotly_build(x)
   x$filename <- if (!missing(filename)) { 
     filename
@@ -54,7 +54,7 @@ plotly_POST <- function(x, filename, fileopt = "new",
   if (!is.null(x$world_readable)) {
     warning('world_readable is no longer supported. Instead, set the sharing\n',
             'argument to "private" (you must be logged in to access),\n',
-            '"hidden" (anybody with the obscured URL can access) or "public"\n', 
+            '"secret" (anybody with the obscured URL can access) or "public"\n', 
             '(anybody can view).')
   }
   x$world_readable <- if (sharing[1] == "public") TRUE else FALSE
@@ -74,7 +74,7 @@ plotly_POST <- function(x, filename, fileopt = "new",
   base_url <- file.path(get_domain(), "clientresp")
   resp <- httr::POST(base_url, body = bod)
   con <- process(append_class(resp, "clientresp"))
-  if (sharing[1] == "hidden") {
+  if (sharing[1] == "secret") {
     bits <- strsplit(con$url, "/")[[1]]
     plot_id <- bits[length(bits)]
     url <- file.path(get_domain("api"), "v2", "files",