Merge pull request #148 from lorenzwalthert/rcmdcheck

make R CMD Check perfect (#148).

Author: lorenzwalthert

DESCRIPTION

@@ -7,9 +7,7 @@ Description:
     Pretty-prints R code without changing the user's formatting intent.
 Imports:
     dplyr,
-    magrittr,
     purrr,
-    readr,
     rlang,
     rprojroot,
     tibble,

R/nested_to_tree.R

@@ -17,11 +17,10 @@ create_tree <- function(text) {
 #' @param pd_nested A nested tibble.
 #' @return An object of class "Node" and "R6".
 #' @examples
-#' library("magrittr")
 #' code <- "a <- function(x) { if(x > 1) { 1+1 } else {x} }"
-#' l1 <- styler:::compute_parse_data_nested(code) %>%
-#'   styler:::pre_visit(c(styler:::create_filler)) %>%
-#'   styler:::create_node_from_nested_root()
+#' nested_pd <- styler:::compute_parse_data_nested(code)
+#' initialized <- styler:::pre_visit(nested_pd, c(styler:::create_filler))
+#' styler:::create_node_from_nested_root(initialized)
 create_node_from_nested_root <- function(pd_nested) {
   n <- data.tree::Node$new("ROOT (token: short_text [lag_newlines/spaces] {id})")
   create_node_from_nested(pd_nested, n)

R/styler.R

@@ -4,4 +4,14 @@
 #'  according to a style guide. See the INDEX for more information.
 #'
 "_PACKAGE"
-if (getRversion() >= "2.15.1") utils::globalVariables(c("."))
+if (getRversion() >= "2.15.1") {
+  utils::globalVariables(c(
+    ".",
+    "pd", "pd_nested", "pd_flat", "flattened_pd",
+    "line1", "line2", "col1", "col2",
+    "terminal", "text", "short",
+    "spaces", "lag_spaces",
+    "newlines", "lag_newlines",
+    NULL
+  ))
+}