Fiber Typing

Thanks for providing these macros and script files. When I run the R script file everything works until I get to chunk 6, where I get this error message: 
Error in `combine_vars()`:
! Faceting variables must have at least one value.
Run `rlang::last_trace()` to see where the error occurred.

Can you help with this?