Here is the code with explanations and improvements.

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

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