RPresto: unable to connect to Starburst Galaxy

Using RPresto 1.4.6 on R 4.4.1, I’m getting a 401 authentication error using this snippet to connect to a Free Cluster:

con <- DBI::dbConnect(
    drv = RPresto::Presto(),
    host = Sys.getenv("TRINO_HOST"),
    port = 443,
    user = Sys.getenv("TRINO_USER"),
    password = Sys.getenv("TRINO_PASSWORD"),
    catalog = "sample",
    schema = "demo")

I’m able to successfully connect via Trino CLI using the same environment variables and from DBeaverCE.

Any suggestions or alternative ways to connect to Starburst Galaxy from R would be greatly appreciated.

Just in case others come across this thread, here’s a solution that works: