{"action":"created","issue":{"url":"https://api.github.com/repos/USGS-R/gsplot/issues/246","labels_url":"https://api.github.com/repos/USGS-R/gsplot/issues/246/labels{/name}","comments_url":"https://api.github.com/repos/USGS-R/gsplot/issues/246/comments","events_url":"https://api.github.com/repos/USGS-R/gsplot/issues/246/events","html_url":"https://github.com/USGS-R/gsplot/issues/246","id":106815755,"number":246,"title":"par and limit extractor functions","user":{"login":"ldecicco-USGS","id":1105215,"avatar_url":"https://avatars.githubusercontent.com/u/1105215?v=3","gravatar_id":"","url":"https://api.github.com/users/ldecicco-USGS","html_url":"https://github.com/ldecicco-USGS","followers_url":"https://api.github.com/users/ldecicco-USGS/followers","following_url":"https://api.github.com/users/ldecicco-USGS/following{/other_user}","gists_url":"https://api.github.com/users/ldecicco-USGS/gists{/gist_id}","starred_url":"https://api.github.com/users/ldecicco-USGS/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/ldecicco-USGS/subscriptions","organizations_url":"https://api.github.com/users/ldecicco-USGS/orgs","repos_url":"https://api.github.com/users/ldecicco-USGS/repos","events_url":"https://api.github.com/users/ldecicco-USGS/events{/privacy}","received_events_url":"https://api.github.com/users/ldecicco-USGS/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":{"login":"jread-usgs","id":2349007,"avatar_url":"https://avatars.githubusercontent.com/u/2349007?v=3","gravatar_id":"","url":"https://api.github.com/users/jread-usgs","html_url":"https://github.com/jread-usgs","followers_url":"https://api.github.com/users/jread-usgs/followers","following_url":"https://api.github.com/users/jread-usgs/following{/other_user}","gists_url":"https://api.github.com/users/jread-usgs/gists{/gist_id}","starred_url":"https://api.github.com/users/jread-usgs/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jread-usgs/subscriptions","organizations_url":"https://api.github.com/users/jread-usgs/orgs","repos_url":"https://api.github.com/users/jread-usgs/repos","events_url":"https://api.github.com/users/jread-usgs/events{/privacy}","received_events_url":"https://api.github.com/users/jread-usgs/received_events","type":"User","site_admin":false},"milestone":null,"comments":9,"created_at":"2015-09-16T16:57:04Z","updated_at":"2015-10-05T23:49:45Z","closed_at":null,"body":"```\r\ngs <- gsplot() %>%\r\n  points( y=c(3,1,2), x=1:3, xlim=c(0,NA),ylim=c(0,NA),\r\n          col=\"blue\", pch=18, legend.name=\"Points\", xlab=\"Index\") %>%\r\n  lines(c(3,4,3), c(2,4,6), legend.name=\"Lines\", ylab=\"Data\") %>%\r\n  abline(b=1, a=0, legend.name=\"1:1\") %>%\r\n  legend(location=\"topleft\",title=\"Awesome!\") %>%\r\n  grid() %>%\r\n  bgCol(col=\"lightgrey\") %>%\r\n  error_bar(x=1:3, y=c(3,1,2), y.high=c(0.5,0.25,1), y.low=0.1) %>%\r\n  arrows(x0=0.75, y0=2, x1=1, y1=2.8, lwd=2) %>%\r\n  title(\"Graphing Fun\") %>%\r\n  text(.75,1.75,labels=\"Weird data\") \r\ngs\r\nu <- par(\"plt\")\r\nv <- c( (u[1]+u[2])/2, u[2], (u[3]+u[4])/2, u[4] )\r\nconfig(\"par\",new=TRUE,fig=v,mar=c(1,1,1,1))\r\ngs2 <- gsplot() %>%\r\n  points(1, 2) %>%\r\n  bgCol(col=\"white\")\r\ngs2\r\n# To get back to the 'default par':\r\npar(gs.par(gs))\r\n```\r\nSuggestions?"},"comment":{"url":"https://api.github.com/repos/USGS-R/gsplot/issues/comments/145700319","html_url":"https://github.com/USGS-R/gsplot/issues/246#issuecomment-145700319","issue_url":"https://api.github.com/repos/USGS-R/gsplot/issues/246","id":145700319,"user":{"login":"jread-usgs","id":2349007,"avatar_url":"https://avatars.githubusercontent.com/u/2349007?v=3","gravatar_id":"","url":"https://api.github.com/users/jread-usgs","html_url":"https://github.com/jread-usgs","followers_url":"https://api.github.com/users/jread-usgs/followers","following_url":"https://api.github.com/users/jread-usgs/following{/other_user}","gists_url":"https://api.github.com/users/jread-usgs/gists{/gist_id}","starred_url":"https://api.github.com/users/jread-usgs/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jread-usgs/subscriptions","organizations_url":"https://api.github.com/users/jread-usgs/orgs","repos_url":"https://api.github.com/users/jread-usgs/repos","events_url":"https://api.github.com/users/jread-usgs/events{/privacy}","received_events_url":"https://api.github.com/users/jread-usgs/received_events","type":"User","site_admin":false},"created_at":"2015-10-05T23:49:45Z","updated_at":"2015-10-05T23:49:45Z","body":"```r\r\nusrDef <- gsplot(mar=c(4,4,4,4), xaxs='r', yaxs='r') %>% \r\n     points(x=1, y=2, side=c(3,2), legend.name=\"Points 1\", cex=3, xlab='cat')\r\npar(usrDef)\r\n$mar\r\n[1] 4 4 4 4\r\n\r\n$xaxs\r\n[1] \"r\"\r\n\r\n$yaxs\r\n[1] \"r\"\r\n\r\n$tcl\r\n[1] 0.3\r\n\r\n$mgp\r\n[1] 1.5 0.3 0.0\r\n```"}}