{"action":"opened","issue":{"url":"https://api.github.com/repos/timelyportfolio/svgPanZoom/issues/6","labels_url":"https://api.github.com/repos/timelyportfolio/svgPanZoom/issues/6/labels{/name}","comments_url":"https://api.github.com/repos/timelyportfolio/svgPanZoom/issues/6/comments","events_url":"https://api.github.com/repos/timelyportfolio/svgPanZoom/issues/6/events","html_url":"https://github.com/timelyportfolio/svgPanZoom/issues/6","id":60376098,"number":6,"title":"Out of bounds error with shiny","user":{"login":"ghotson","id":4359117,"avatar_url":"https://avatars.githubusercontent.com/u/4359117?v=3","gravatar_id":"","url":"https://api.github.com/users/ghotson","html_url":"https://github.com/ghotson","followers_url":"https://api.github.com/users/ghotson/followers","following_url":"https://api.github.com/users/ghotson/following{/other_user}","gists_url":"https://api.github.com/users/ghotson/gists{/gist_id}","starred_url":"https://api.github.com/users/ghotson/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ghotson/subscriptions","organizations_url":"https://api.github.com/users/ghotson/orgs","repos_url":"https://api.github.com/users/ghotson/repos","events_url":"https://api.github.com/users/ghotson/events{/privacy}","received_events_url":"https://api.github.com/users/ghotson/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-03-09T17:05:32Z","updated_at":"2015-03-09T17:05:32Z","closed_at":null,"body":"Hi again! So I've got a weird error. I'm trying to plot some arrows, and I would like to scale the size of the arrow head according to a variable. \r\n\r\nIf I make it a constant, things work fine. E.g.\r\n````\r\nx <- faithful[1:10,]\r\ny <- faithful[2:11,]\r\n\r\narrowData = cbind(x,y)\r\n\r\np <- ggplot(arrowData) + geom_segment(aes(x = arrowData[,1], y=arrowData[,2],xend = arrowData[,3], yend = arrowData[,4]), \r\n                                      arrow = arrow(length = unit(1/5, \"cm\"))) \r\nsvgPanZoom(p)\r\n````\r\nHowever, if I make the arrow head variable then it doesn't play nicely with svgPanZoom, e.g.\r\n\r\n````\r\nx <- faithful[1:10,]\r\ny <- faithful[2:11,]\r\n\r\narrowData = cbind(x,y)\r\n\r\np <- ggplot(arrowData) + geom_segment(aes(x = arrowData[,1], y=arrowData[,2],xend = arrowData[,3], yend = arrowData[,4]), \r\n                                      arrow = arrow(length = unit(arrowData[,1]/5, \"cm\"))) \r\nprint(p)\r\nsvgPanZoom(p)\r\n````\r\nshows fine with print(p), but svgPanZoom results in \"Error in arrow[[i]] : subscript out of bounds\"\r\n\r\nThanks!\r\nGuy"}}