From d8e7fa31cc944c04b057c98067af1c8feb462796 Mon Sep 17 00:00:00 2001
From: Ben Baumer <ben.baumer@gmail.com>
Date: Wed, 6 Jul 2022 16:04:47 -0400
Subject: [PATCH] no native pipe for now

---
 R/phenocam.R | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/R/phenocam.R b/R/phenocam.R
index 53a5ccf..cbd496d 100644
--- a/R/phenocam.R
+++ b/R/phenocam.R
@@ -38,11 +38,11 @@ phenocam_read_day_urls <- function(x = Sys.Date()) {
     "https://phenocam.nau.edu/webcam/browse/macleish/",
     format(the_date, "%Y/%m/%d/")
   )
-  url |>
+  url %>%
     # need authentication to make this work!!
-    xml2::read_html() |>
-    rvest::html_elements("td") |>
-    rvest::html_elements("img") |>
+    xml2::read_html() %>%
+    rvest::html_elements("td") %>%
+    rvest::html_elements("img") %>%
     rvest::html_attr("src")
 }
 
@@ -60,11 +60,11 @@ phenocam_read_monthly_midday_urls <- function(x = Sys.Date()) {
     "https://phenocam.nau.edu/webcam/browse/macleish/",
     format(the_date, "%Y/%m/")
   )
-  url |>
-    xml2::read_html() |>
-    rvest::html_elements("td") |>
-    rvest::html_elements("img") |>
-    rvest::html_attr("src") |>
+  url %>%
+    xml2::read_html() %>%
+    rvest::html_elements("td") %>%
+    rvest::html_elements("img") %>%
+    rvest::html_attr("src") %>%
     stringr::str_subset("macleish")
 }
 
@@ -80,8 +80,8 @@ phenocam_image_url_midday <- function(x = Sys.Date()) {
   monthlies <- phenocam_read_monthly_midday_urls(x)
   this_day <- format(as.Date(x), "%Y_%m_%d")
   
-  monthlies |>
-    stringr::str_subset(this_day) |>
+  monthlies %>%
+    stringr::str_subset(this_day) %>%
     head(1)
 }
 
@@ -94,7 +94,7 @@ phenocam_image_url_midday <- function(x = Sys.Date()) {
 #' }
 
 phenocam_info <- function() {
-  phenocamr::list_sites() |>
+  phenocamr::list_sites() %>%
     dplyr::filter(site == "macleish")
 }