This is a very simple test (performs HEAD / request on the Drill server/cluster)
HEAD /
drill_active(drill_con)
drill server connection object setup by drill_connection()
drill_connection()
not_run({ drill_connection() %>% drill_active() })