Zooming in on figure with coord_cartesean() (#437)

* Update visr.R

* add rprofile

* increment version number

* Update visr.R

* updated news

* adding snapshot testing

* Update test-visr_survfit.R

.Rprofile

@@ -0,0 +1,6 @@
+# this sets the dev folder in the .libPath
+# if user has not set up dev mode, nothing will happen
+tryCatch(
+  devtools::dev_mode(on = TRUE),
+  error = function(e) invisible()
+)

.gitignore

@@ -37,5 +37,3 @@ vignettes/*.pdf
 inst/doc
 README.html
 docs/
-tests/testthat/_snaps/
-.Rprofile

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: visR
 Title: Clinical Graphs and Tables Adhering to Graphical Principles
-Version: 0.3.0.9002
+Version: 0.3.0.9003
 Authors@R: c(
     person("Mark", "Baillie", , "bailliem@gmail.com", role = c("aut", "cre", "cph")),
     person("Diego", "Saldana", , "diego.saldana@roche.com", role = "aut"),

NEWS.md

@@ -1,10 +1,9 @@
 # visR (development version)
 
-### Bug Fixes
+* We now zoom in on a figure (e.g. Kaplan-Meier figure) with `ggplot2::coord_cartesian()` instead of using `scale_x_continuous(limits=)` and `scale_y_continuous(limits=)`. The latter first removes data outside the limits, then constructs the line. Zooming constructs the full line, then zooms into the limits. This is useful because the risktable often reports estimates near the end of a KM figure, but the line is cutoff and not shown at the last time point. (#402)
 
 * README update to contributor listing. (#435)
 
-
 # visR 0.3.0
 
 ### New functions

R/visr.R

@@ -271,14 +271,16 @@ visr.survfit <- function(x = NULL,
   )) +
     ggplot2::geom_step(ggplot2::aes(y = est, col = strata)) +
     ggplot2::scale_x_continuous(
-      breaks = x_ticks,
-      limits = c(min(x_ticks), max(x_ticks))
+      breaks = x_ticks
     ) +
     ggplot2::xlab(x_label) +
     ggplot2::scale_y_continuous(
       breaks = y_ticks,
-      labels = yscaleFUN,
-      limits = c(min(y_ticks), max(y_ticks))
+      labels = yscaleFUN
+    ) +
+    ggplot2::coord_cartesian(
+      xlim = c(min(x_ticks), max(x_ticks)),
+      ylim = c(min(y_ticks), max(y_ticks))
     ) +
     ggplot2::ylab(y_label) +
     ggplot2::labs(color = .construct_strata_label(x)) +
@@ -533,14 +535,16 @@ visr.tidycuminc <- function(x = NULL,
     )) +
     ggplot2::geom_step(ggplot2::aes(y = est, col = strata)) +
     ggplot2::scale_x_continuous(
-      breaks = x_ticks,
-      limits = c(min(x_ticks), max(x_ticks))
+      breaks = x_ticks
     ) +
     ggplot2::xlab(x_label) +
     ggplot2::scale_y_continuous(
       breaks = y_ticks,
-      labels = yscaleFUN,
-      limits = c(min(y_ticks), max(y_ticks))
+      labels = yscaleFUN
+    ) +
+    ggplot2::coord_cartesian(
+      xlim = c(min(x_ticks), max(x_ticks)),
+      ylim = c(min(y_ticks), max(y_ticks))
     ) +
     ggplot2::ylab(y_label) +
     ggplot2::labs(color = .construct_strata_label(x)) +