Here is the code with explanations and improvements.

Understanding the 'Not Found' Error in User-Defined Functions in R: Best Practices for Avoiding Scope Issues

Converting Logical Class to Multiple Variables in the Workspace: A Custom Solution with Precautions

Understanding and Working with Tidyselect Predicates in R: A Solution to the Mysterious Case

Calculating the R Distance to First Point of SpatVect Points Using R and sf Package

Mastering Tidyeval in R: Flexible Function Composition for Data Manipulation and More

Lumping Factors Together: Two Approaches for Efficient Data Grouping

Reshaping an Excel Sheet with a Header in Three Rows to Tidy Data Format Using R and Tidyverse Package

Reshaping Data Frames with tidyr's pivot_longer and pivot_wider Functions

How to Create Custom Pipe Functions in R for Efficient Data Processing