if (FALSE) {
# Create a resource
res <- resourcer::newResource(
url = "odbc+mssql://localhost:1433/EpidemiologyDB/PatientData",
identity = "sa", secret = "YourStrong@Password123")
# Create a resource client
client <- resourcer::newResourceClient(res)
# Coerce resource to a data frame
df <- client$asDataFrame()
# Disconnect the client
client$close()
}
Run the code above in your browser using DataLab