fixing "invalid argument to unary operator"

EmilHvitfeldt · Apr 7, 2018 · a07d2b5 · a07d2b5
1 parent 0766d5a
commit a07d2b5
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/R/nest_paragraphs.R b/R/nest_paragraphs.R
@@ -21,7 +21,7 @@ nest_paragraphs <- function(data, input, ...) {
                     bind_rows(
                       replicate(
                         length(sections[[.x]]),
-                        dplyr::select(data, -quo_input)[.x, ],
+                        dplyr::select(data, -which(names(data) == quo_input))[.x, ],
                         simplify = FALSE)
                       )
                     )

diff --git a/vignettes/different-features.Rmd b/vignettes/different-features.Rmd
@@ -122,8 +122,3 @@ nest_paragraphs(data = tinderbox_paragraph, input = text) %>%
 nest_paragraphs(tinderbox_paragraph, text, width = 40) %>%
   head()
 ```
-
-
-
-
-