How to capture the output of the show_query. Modification of the answer from https://stackoverflow.com/questions/46002597/how-to-catch-a-dplyr-query-in-a-string.

Capture_show_query_dplyr.R

# Capture 
output <- capture.output(q1 %>% show_query())
# Concatenate character vector to a one length character vector
final_output <- paste(tail(output, -1), collapse=" ")
final_output