Update example.R

Your basic strategy is great, and has been preserved here. However, Jon is keen to encourage the use of native pipes, now they are available (since v4.1.0). More lines, but perhaps better readability than nested functions - especially as the pipeline gets longer.

At Jon's prompting, I wrote this up in an [approaches doc](https://exercism.org/tracks/r/exercises/reverse-string/approaches/native-pipes) about 2 weeks ago. That article includes various useful links.

exercises/practice/pop-count/.meta/example.R

@@ -1,3 +1,6 @@
 egg_count <- function(display_value) {
-  sum(as.integer(intToBits(display_value)))
+  display_value |>
+    intToBits() |>
+    as.integer() |>
+    sum()
 }