This is a very simple test (performs HEAD / request on the Drill server/cluster)

drill_active(drill_con)

Arguments

drill_con

drill server connection object setup by drill_connection()

See also

Examples

try({ drill_connection() %>% drill_active() }, silent=TRUE)
#> [1] FALSE