Plotly R-API Debug

plotly-debug.diff

diff --git a/R/plotly.R b/R/plotly.R
index 26aef68..0dda866 100644
--- a/R/plotly.R
+++ b/R/plotly.R
@@ -67,6 +67,8 @@ plotly <- function(username=NULL, key=NULL){
   priv <- list()

   pub$makecall <- function(args, kwargs, origin) {
+    cat("Given filename: ")
+    print(kwargs$filename)
     if (is.null(kwargs$filename))
       kwargs$filename <- pub$filename
     if (is.null(kwargs$fileopt))
@@ -78,6 +80,8 @@ plotly <- function(username=NULL, key=NULL){
                                                                                  collapse = ""), un = pub$username, key = pub$key, origin = origin, kwargs = toJSON(kwargs,
                                                                                                                                                                     collapse = ""))
     resp <- fromJSON(respst, simplify = FALSE)
+    cat("JSON response: ")
+    print(resp)
     if (!is.null(resp$filename))
       pub$filename <- resp$filename
     if (!is.null(resp$error))