DESCRIPTION

@@ -1,8 +1,8 @@
 Package: tidymv
 Type: Package
 Title: Tidy Model Visualisation
-Version: 0.1.0
-Authors@R: person("Stefano", "Coretta", email = "stefano.coretta@gmail.com",
+Version: 1.0.0
+Authors@R: person("Stefano", "Coretta", email = paste0("stefano.coretta", "@", "gmail.com"),
                   role = c("aut", "cre"))
 Description: This package provides functions for model visualisation using tidy
     tools from the tidyverse.

NEWS.md

@@ -1,6 +1,18 @@
 # Change Log
 
-## 0.1.0
+## [1.0.0] - 2017-10-21
+### Added
+- documentation of package
+
+### Changed
+- use `lag()` for `create_event_start()`
+
+### Fixed
+- error in `plot_gamsd` about missing xmin and xmax in annotate if there is no difference
+
+## 0.1.0 - 2017-06-29
 ### Added
 - `create_start_event` function
 - `plot_gamsd` function
+
+[1.0.0]: https://github.com/stefanocoretta/tidymv/compare/v0.1.0...v1.0.0

R/functions.R

@@ -9,24 +9,14 @@
 #'
 #' @export
 create_event_start <- function(tibble, event.col) {
-    event <- as.character(tibble[[event.col]])
-    previous <- ""
-    event.start <- NULL
-
-    for (i in 1:length(event)) {
-        current <- event[i]
-        if (current == previous) {
-            event.start.current <- FALSE
-        } else {
-            event.start.current <- TRUE
-        }
-
-        previous <- current
-
-        event.start <- c(event.start, event.start.current)
-    }
-
-    dplyr::mutate(tibble, start.event = event.start)
+    dplyr::mutate(
+        tibble,
+        start.event = ifelse(
+            as.character(tibble[[event.col]]) == lag(as.character(tibble[[event.col]]), default = FALSE),
+            FALSE,
+            TRUE
+            )
+    )
 }
 
 
@@ -73,15 +63,19 @@ plot_gamsd <- function(model, view, comparison, conditions = NULL) {
     fit <- "fit"
     comp.column <- names(comparison)
 
+    annotate <- ggplot2::annotate(
+        "rect",
+        xmin=sig.diff$start, xmax=sig.diff$end,
+        ymin=-Inf, ymax=Inf, alpha=0.1, fill="red"
+    )
+
+    is.sig <- is.null(sig.diff) == FALSE
+
     smooth.plot <- smooth.df %>%
         ggplot2::ggplot(
             ggplot2::aes_string(view, fit)
         ) +
-        ggplot2::annotate(
-            "rect",
-            xmin=sig.diff$start, xmax=sig.diff$end,
-            ymin=-Inf, ymax=Inf, alpha=0.1, fill="red"
-        ) +
+        {if (is.sig) {annotate}} +
         ggplot2::geom_ribbon(
             ggplot2::aes(ymin = ymin.sm,
                          ymax = ymax.sm,
@@ -113,11 +107,7 @@ plot_gamsd <- function(model, view, comparison, conditions = NULL) {
             ggplot2::aes_string(view, est)
         ) +
         ggplot2::geom_hline(yintercept = 0, size = 0.3) +
-        ggplot2::annotate(
-            "rect",
-            xmin=sig.diff$start, xmax=sig.diff$end,
-            ymin=-Inf, ymax=Inf, alpha=0.1, fill="red"
-        ) +
+        {if (is.sig) {annotate}} +
         ggplot2::geom_ribbon(
             ggplot2::aes(
                 ymin = ymin.di,

R/tidymv.R

@@ -0,0 +1,8 @@
+#' tidymv: Tidy Model Visualisation.
+#'
+#' This package provides functions for model visualisation using tidy tools from
+#' the tidyverse.
+#'
+#' @docType package
+#' @name tidymv
+NULL