Merge pull request #65 from chrbknudsen/main

fra %>% til |>

Author: chrbknudsen

episodes/danstat.Rmd

@@ -186,8 +186,8 @@ parameter "variables_only = T".
 What kind of values can the individual datapoints take?
 
 ```{r get-values}
-metadata %>% 
-  slice(4) %>% 
+metadata |> 
+  slice(4) |> 
   pull(values)
 ```
 
@@ -198,11 +198,11 @@ column.
 The same trick can be done for the other fields in the table:
 
 ```{r municipalites}
-metadata %>% 
-  slice(1) %>% 
-  pull(values) %>% 
-  .[[1]] %>% 
-  head
+metadata |> 
+  slice(1) |> 
+  pull(values) |> 
+  .[[1]] |> 
+  head()
 ```
 Here we see the individual municipalities in Denmark. 
 
@@ -249,8 +249,8 @@ That information is stored in the variable "CIVILSTAND".
 
 And above, we saw that we had the following values in that variable:
 ```{r pulling-values}
-metadata %>% 
-  slice(4) %>% 
+metadata |> 
+  slice(4) |> 
   pull(values)
 ```
 

episodes/getting-data.Rmd

@@ -155,7 +155,7 @@ specify the result that we want:
 
 ```{r specific-joke}
 library(tidyverse)
-GET("https://icanhazdadjoke.com/j/lGJmrrzAsc",  accept("text/plain")) %>% 
+GET("https://icanhazdadjoke.com/j/lGJmrrzAsc",  accept("text/plain")) |> 
   content()
 ```
 
@@ -174,7 +174,7 @@ it to *result*:
 
 ```{r dog-jokes}
 result <- GET("https://icanhazdadjoke.com/search?term=dog",
-              accept("application/json")) %>% 
+              accept("application/json")) |> 
           content()
 result
 ```
@@ -188,8 +188,8 @@ convert it to a data frame. We begin by loading the library:
 
 ```{r extract-from-json}
 library(jsonlite)
-GET("https://icanhazdadjoke.com/search?term=dog", accept("application/json")) %>% 
-  content(as="text") %>% 
+GET("https://icanhazdadjoke.com/search?term=dog", accept("application/json")) |> 
+  content(as="text") |> 
   fromJSON()
 ```
 
@@ -215,8 +215,8 @@ Request dad jokes about cats
 ## Solution
 
 ```{r}
-GET("https://icanhazdadjoke.com/search?term=dog", accept("application/json")) %>% 
-content(as="text") %>% 
+GET("https://icanhazdadjoke.com/search?term=dog", accept("application/json")) |> 
+content(as="text") |> 
 fromJSON()
 ```