setscience("shazam", create=TRUE, subl=FALSE)

.myf(s3)

dir()

bucket.sh <- s3_p("Shazam")
s3_download(bucket.sh)
s3_bucketExists(bucket.sh)


sf_con <-odbcConnect(dsn="snowflake", host="orchard.snowflakecomputing.com", uid="rsaporta", pwd="JD1LT6NC9eF@^uS!QmXVi!QE@Y6XFr3X78EV")


library(RODBC)
dbhandle <- odbcDriverConnect('server=orchard.snowflakecomputing.com;')
res <- sqlQuery(dbhandle, 'select * from information_schema.tables')



/etc/snowflake/snowflake_odbc/lib/libSnowflake.s.