Replace magritttr pipes with base pipes (#418)

Fixes #415

---------

Co-authored-by: Hadley Wickham <h.wickham@gmail.com>

Author: luisDVA

R/encoding.R

@@ -11,12 +11,12 @@
 #' # A file with bad encoding included in the package
 #' path <- system.file("html-ex", "bad-encoding.html", package = "rvest")
 #' x <- read_html(path)
-#' x %>% html_elements("p") %>% html_text()
+#' x |> html_elements("p") |> html_text()
 #'
 #' html_encoding_guess(x)
 #' # Two valid encodings, only one of which is correct
-#' read_html(path, encoding = "ISO-8859-1") %>% html_elements("p") %>% html_text()
-#' read_html(path, encoding = "ISO-8859-2") %>% html_elements("p") %>% html_text()
+#' read_html(path, encoding = "ISO-8859-1") |> html_elements("p") |> html_text()
+#' read_html(path, encoding = "ISO-8859-2") |> html_elements("p") |> html_text()
 html_encoding_guess <- function(x) {
   check_installed("stringi")
 

R/form.R

@@ -22,11 +22,11 @@
 #' html <- read_html("http://www.google.com")
 #' search <- html_form(html)[[1]]
 #'
-#' search <- search %>% html_form_set(q = "My little pony", hl = "fr")
+#' search <- search |> html_form_set(q = "My little pony", hl = "fr")
 #'
 #' # Or if you have a list of values, use !!!
 #' vals <- list(q = "web scraping", hl = "en")
-#' search <- search %>% html_form_set(!!!vals)
+#' search <- search |> html_form_set(!!!vals)
 #'
 #' # To submit and get result:
 #' \dontrun{

R/html.R

@@ -8,9 +8,9 @@
 #' url <- "https://rvest.tidyverse.org/articles/starwars.html"
 #' html <- read_html(url)
 #'
-#' html %>%
-#'   html_element("div") %>%
-#'   html_children() %>%
+#' html |>
+#'   html_element("div") |>
+#'   html_children() |>
 #'   html_name()
 #' @export
 #' @importFrom xml2 xml_name
@@ -35,11 +35,11 @@ html_name <- function(x) {
 #'   <li><a href="https://c.com">b</a></li>
 #'   </ul>')
 #'
-#' html %>% html_elements("a") %>% html_attrs()
+#' html |> html_elements("a") |> html_attrs()
 #'
-#' html %>% html_elements("a") %>% html_attr("href")
-#' html %>% html_elements("li") %>% html_attr("class")
-#' html %>% html_elements("li") %>% html_attr("class", default = "inactive")
+#' html |> html_elements("a") |> html_attr("href")
+#' html |> html_elements("li") |> html_attr("class")
+#' html |> html_elements("li") |> html_attr("class", default = "inactive")
 #' @export
 #' @importFrom xml2 xml_attr
 html_attr <- function(x, name, default = NA_character_) {

R/live.R

@@ -72,11 +72,11 @@ read_html_live <- function(url) {
 #' sess <- read_html_live("https://www.bodybuilding.com/exercises/finder")
 #' sess$view()
 #'
-#' sess %>% html_elements(".ExResult-row") %>% length()
+#' sess |> html_elements(".ExResult-row") |> length()
 #' sess$click(".ExLoadMore-btn")
-#' sess %>% html_elements(".ExResult-row") %>% length()
+#' sess |> html_elements(".ExResult-row") |> length()
 #' sess$click(".ExLoadMore-btn")
-#' sess %>% html_elements(".ExResult-row") %>% length()
+#' sess |> html_elements(".ExResult-row") |> length()
 #' }
 LiveHTML <- R6::R6Class(
   "LiveHTML",

R/rvest-package.R

@@ -30,21 +30,21 @@
 #' # Then find elements that match a css selector or XPath expression
 #' # using html_elements(). In this example, each <section> corresponds
 #' # to a different film
-#' films <- starwars %>% html_elements("section")
+#' films <- starwars |> html_elements("section")
 #' films
 #'
 #' # Then use html_element() to extract one element per film. Here
 #' # we the title is given by the text inside <h2>
-#' title <- films %>%
-#'   html_element("h2") %>%
+#' title <- films |>
+#'   html_element("h2") |>
 #'   html_text2()
 #' title
 #'
 #' # Or use html_attr() to get data out of attributes. html_attr() always
 #' # returns a string so we convert it to an integer using a readr function
-#' episode <- films %>%
-#'   html_element("h2") %>%
-#'   html_attr("data-id") %>%
+#' episode <- films |>
+#'   html_element("h2") |>
+#'   html_attr("data-id") |>
 #'   readr::parse_integer()
 #' episode
 xml2::read_html

R/selectors.R

@@ -40,10 +40,10 @@
 #'   <p class='important'>This is an important paragraph</p>
 #' ")
 #'
-#' html %>% html_element("h1")
-#' html %>% html_elements("p")
-#' html %>% html_elements(".important")
-#' html %>% html_elements("#first")
+#' html |> html_element("h1")
+#' html |> html_elements("p")
+#' html |> html_elements(".important")
+#' html |> html_elements("#first")
 #'
 #' # html_element() vs html_elements() --------------------------------------
 #' html <- minimal_html("
@@ -54,18 +54,18 @@
 #'     <li><b>R4-P17</b> is a <i>droid</i></li>
 #'   </ul>
 #' ")
-#' li <- html %>% html_elements("li")
+#' li <- html |> html_elements("li")
 #'
 #' # When applied to a node set, html_elements() returns all matching elements
 #' # beneath any of the inputs, flattening results into a new node set.
-#' li %>% html_elements("i")
+#' li |> html_elements("i")
 #'
 #' # When applied to a node set, html_element() always returns a vector the
 #' # same length as the input, using a "missing" element where needed.
-#' li %>% html_element("i")
+#' li |> html_element("i")
 #' # and html_text() and html_attr() will return NA
-#' li %>% html_element("i") %>% html_text2()
-#' li %>% html_element("span") %>% html_attr("class")
+#' li |> html_element("i") |> html_text2()
+#' li |> html_element("span") |> html_attr("class")
 html_element <- function(x, css, xpath) {
   UseMethod("html_element")
 }

R/session.R

@@ -22,19 +22,19 @@
 #' @export
 #' @examples
 #' s <- session("http://hadley.nz")
-#' s %>%
-#'   session_jump_to("hadley.jpg") %>%
-#'   session_jump_to("/") %>%
+#' s |>
+#'   session_jump_to("hadley.jpg") |>
+#'   session_jump_to("/") |>
 #'   session_history()
 #'
-#' s %>%
-#'   session_jump_to("hadley.jpg") %>%
-#'   session_back() %>%
+#' s |>
+#'   session_jump_to("hadley.jpg") |>
+#'   session_back() |>
 #'   session_history()
 #'
 #' \donttest{
-#' s %>%
-#'   session_follow_link(css = "p a") %>%
+#' s |>
+#'   session_follow_link(css = "p a") |>
 #'   html_elements("p")
 #' }
 session <- function(url, ...) {

R/table.R

@@ -30,8 +30,8 @@
 #'   <tr><td>4</td><td>y</td></tr>
 #'   <tr><td>10</td><td>z</td></tr>
 #' </table>")
-#' sample1 %>%
-#'   html_element("table") %>%
+#' sample1 |>
+#'   html_element("table") |>
 #'   html_table()
 #'
 #' # Values in merged cells will be duplicated
@@ -41,8 +41,8 @@
 #'   <tr><td colspan='2'>4</td><td>5</td></tr>
 #'   <tr><td>6</td><td colspan='2'>7</td></tr>
 #' </table>")
-#' sample2 %>%
-#'   html_element("table") %>%
+#' sample2 |>
+#'   html_element("table") |>
 #'   html_table()
 #'
 #' # If a row is missing cells, they'll be filled with NAs
@@ -52,8 +52,8 @@
 #'   <tr><td colspan='2'>3</td></tr>
 #'   <tr><td>4</td></tr>
 #' </table>")
-#' sample3 %>%
-#'   html_element("table") %>%
+#' sample3 |>
+#'   html_element("table") |>
 #'   html_table()
 html_table <- function(x,
                        header = NA,

R/text.R

@@ -27,17 +27,17 @@
 #'
 #' # html_text() returns the raw underlying text, which includes whitespace
 #' # that would be ignored by a browser, and ignores the <br>
-#' html %>% html_element("p") %>% html_text() %>% writeLines()
+#' html |> html_element("p") |> html_text() |> writeLines()
 #'
 #' # html_text2() simulates what a browser would display. Non-significant
 #' # whitespace is collapsed, and <br> is turned into a line break
-#' html %>% html_element("p") %>% html_text2() %>% writeLines()
+#' html |> html_element("p") |> html_text2() |> writeLines()
 #'
 #' # By default, html_text2() also converts non-breaking spaces to regular
 #' # spaces:
 #' html <- minimal_html("<p>x&nbsp;y</p>")
-#' x1 <- html %>% html_element("p") %>% html_text()
-#' x2 <- html %>% html_element("p") %>% html_text2()
+#' x1 <- html |> html_element("p") |> html_text()
+#' x2 <- html |> html_element("p") |> html_text2()
 #'
 #' # When printed, non-breaking spaces look exactly like regular spaces
 #' x1

README.Rmd

@@ -50,21 +50,21 @@ starwars <- read_html("https://rvest.tidyverse.org/articles/starwars.html")
 # Then find elements that match a css selector or XPath expression
 # using html_elements(). In this example, each <section> corresponds
 # to a different film
-films <- starwars %>% html_elements("section")
+films <- starwars |> html_elements("section")
 films
 
 # Then use html_element() to extract one element per film. Here
 # we the title is given by the text inside <h2>
-title <- films %>% 
-  html_element("h2") %>% 
+title <- films |> 
+  html_element("h2") |> 
   html_text2()
 title
 
 # Or use html_attr() to get data out of attributes. html_attr() always
 # returns a string so we convert it to an integer using a readr function
-episode <- films %>% 
-  html_element("h2") %>% 
-  html_attr("data-id") %>% 
+episode <- films |> 
+  html_element("h2") |> 
+  html_attr("data-id") |> 
   readr::parse_integer()
 episode
 ```
@@ -74,7 +74,7 @@ If the page contains tabular data you can convert it directly to a data frame wi
 ```{r}
 html <- read_html("https://en.wikipedia.org/w/index.php?title=The_Lego_Movie&oldid=998422565")
 
-html %>% 
-  html_element(".tracklist") %>% 
+html |> 
+  html_element(".tracklist") |> 
   html_table()
 ```