pushed a slight change to the knitr hook so that iframes dont have borders

sckott · sckott · commit bfdabca5231b · 2014-04-17T11:54:44.000-07:00
diff --git a/R/plotly.R b/R/plotly.R
@@ -94,7 +94,7 @@ plotly <- function(username=NULL, key=NULL){
       w <- if(is.null(options[["width"]])) "600" else options[["width"]]
       h <- if(is.null(options[["height"]])) "600" else options[["height"]]
       paste("<iframe height=\"", h, "\" id=\"igraph\" scrolling=\"no\" seamless=\"seamless\"\n\t\t\t\tsrc=\"", 
-            options[["url"]], "\" width=\"", w, "\"></iframe>", sep = "")
+            options[["url"]], "\" width=\"", w, "\" frameBorder=\"0\"></iframe>", sep = "")
     }
   }
   pub$plotly <- function(..., kwargs = list(filename = NULL, fileopt = NULL)) {

Original file line number	Diff line number	Diff line change
`@@ -94,7 +94,7 @@ plotly <- function(username=NULL, key=NULL){`
`94`	`94`	`w <- if(is.null(options[["width"]])) "600" else options[["width"]]`
`95`	`95`	`h <- if(is.null(options[["height"]])) "600" else options[["height"]]`
`96`	`96`	`paste("<iframe height=\"", h, "\" id=\"igraph\" scrolling=\"no\" seamless=\"seamless\"\n\t\t\t\tsrc=\"",`
`97`		`- options[["url"]], "\" width=\"", w, "\"></iframe>", sep = "")`
	`97`	`+ options[["url"]], "\" width=\"", w, "\" frameBorder=\"0\"></iframe>", sep = "")`
`98`	`98`	`}`
`99`	`99`	`}`
`100`	`100`	`pub$plotly <- function(..., kwargs = list(filename = NULL, fileopt = NULL)) {`