Merge pull request #259 from ldecicco-USGS/master

Result of commenting out par(top.par).

Author: ldecicco-USGS

R/print.R

@@ -42,7 +42,7 @@ print.gsplot <- function(x, ...){
 
   top.par <- par(no.readonly=T)
   for (i in which(names(views) %in% 'view')){
-    par(top.par)
+    # par(top.par)
     plots = views[[i]]
     plots[['window']] <- NULL
     window = views[[i]][['window']]

README_files/figure-markdown_github/unnamed-chunk-2-1.png

@@ -66,7 +66,7 @@ plot3
 
 ## ----echo=TRUE, fig.cap="Fig. 4 Water temperature timeseries on primary y-axis with pH timeseries on secondary y-axis.", fig.width=6, fig.height=6----
 site <- '04193490'
-demoPlot <- gsplot(mar=c(7.1, 4.1, 4.1, 2.1)) %>% 
+demoPlot <- gsplot(mar=c(7.1, 4.1, 4.1, 4.1)) %>% 
   lines(dates[[site]], Wtemp[[site]], col="orangered", 
         legend.name="Water Temperature", ylab='Water Temperature (deg C)') %>%
   lines(dates[[site]], pH[[site]], col="seagreen", side=4, 

README_files/figure-markdown_github/unnamed-chunk-3-1.png

@@ -114,7 +114,7 @@ For timeseries, it is sometimes helpful to plot data on the same graph to make c
 
 ```{r echo=TRUE, fig.cap="Fig. 4 Water temperature timeseries on primary y-axis with pH timeseries on secondary y-axis.", fig.width=6, fig.height=6}
 site <- '04193490'
-demoPlot <- gsplot(mar=c(7.1, 4.1, 4.1, 2.1)) %>% 
+demoPlot <- gsplot(mar=c(7.1, 4.1, 4.1, 4.1)) %>% 
   lines(dates[[site]], Wtemp[[site]], col="orangered", 
         legend.name="Water Temperature", ylab='Water Temperature (deg C)') %>%
   lines(dates[[site]], pH[[site]], col="seagreen", side=4, 

README_files/figure-markdown_github/unnamed-chunk-4-1.png

@@ -1,5 +1,5 @@
-xaxs: "r"
-yaxs: "r"
+xaxs: "i"
+yaxs: "i"
 tcl: 0.3
 mgp: [1.5, 0.3, 0.0]
 points: