not working in bookdown

[hardin47]

This might be totally user error, so feel free to delete this issue. Flair used to work (sorry, can't remember versions) happily with bookdown. And now I get the following errors:

macnell <- readr::read_csv("https://raw.githubusercontent.com/statlab/permuter/master/data-raw/macnell.csv")

macnell %>% 
  group_by(tagender) %>%
  mutate(permTAID = sample(taidgender, replace=FALSE)) %>%
  select(overall, tagender, taidgender, permTAID) 

flair::decorate("mac1") %>%
  flair::flair("group_by(tagender)") 

Error in if (doc_type == "pdf_document") { : the condition has length > 1 Calls: local ... knit_print -> knit_print.decorated -> map -> .f -> prep_source

The error isn't reproducible because flair works beautifully when I take the code and put it into its own .Rmd. Thanks!