fix CRAN requirements

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: tidygate
 Type: Package
 Title: Add Gate Information to Your Tibble
-Version: 0.2.5
+Version: 0.2.7
 Authors@R: 
     c(person(given = "Stefano",
            family = "Mangiola",

R/functions.R

@@ -349,12 +349,19 @@ gate_interactive <-
 		  quo_is_symbol(.color) | 
 		  quo_is_symbol(.shape) | 
 		  quo_is_symbol(.size)  & (.data %>% select(!!.size) %>% sapply(class) %in% c("numeric", "integer", "double"))
-		)
+		){
+		  # Reset par on exit
+		  opar <- par(no.readonly =TRUE)  
+		  on.exit(par(opar)) 
+
+		  # Set the new par
 		  par(
 		    mar=c(5.1, 4.1, 4.1, 8.1),
 		    xpd=TRUE,
 		    tck = -.01 # Reduce tick length
 		  )
+		}
+
 
 		# Plot
 		my_df %>% pretty_plot(
@@ -367,9 +374,7 @@ gate_interactive <-
 		# Loop over gates # Variable needed for recalling the attributes lates
 		gate_list = map(1:how_many_gates,  ~ my_matrix %>% gatepoints::fhs(mark = TRUE, ...))
 
-		# Reset par on exit
-		opar <- par(no.readonly =TRUE)  
-		on.exit(par(opar)) 
+
 
 		# Return
 		gate_list %>%

R/methods.R

@@ -30,11 +30,15 @@
 #'
 #' @examples
 #'
-#' \dontrun{
+#' \donttest{
+#' 
+#'   if(interactive()){
+#' 
+#'     tidygate::tidygate_data %>%
+#'     gate( .element = c(`ct 1`, `ct 2`), Dim1, Dim2 )
+#'
+#'   }
 #' 
-#' tidygate::tidygate_data %>%
-#'   gate( .element = c(`ct 1`, `ct 2`), Dim1, Dim2 )
-#'  
 #' }
 #' 
 #' library(magrittr)

tests/testthat/test-methods.R

@@ -2,17 +2,17 @@
 # 
 # test_that("gate dimensions", {
 # library(dplyr)
-#   res =
-#    tidygate::tidygate_data %>%
-#     mutate(sh = factor(hierarchy)) %>%
-#     gate(
-#       .element = c(`ct 1`, `ct 2`),
-#       Dim1, Dim2,
-#       .color = hierarchy,
-#       .shape = sh,
-#       .size = hierarchy,
-#       how_many_gates = 2
-#     )
+  # res =
+  #  tidygate::tidygate_data %>%
+  #   mutate(sh = factor(hierarchy)) %>%
+  #   gate(
+  #     .element = c(`ct 1`, `ct 2`),
+  #     Dim1, Dim2,
+  #     .color = hierarchy,
+  #     .shape = sh,
+  #     .size = hierarchy,
+  #     how_many_gates = 2
+  #   )
 #   
 #   res2 =
 #     tidygate::tidygate_data  %>%