#install.packages("DBI")
#install.packages("odbc")
library(DBI)
library(odbc)
conn <- DBI::dbConnect(odbc::odbc(),
                      Driver = "SQL Server",
                      Server = "LAPTOP-JEJBT2IC\\MSSQLSERVER03",
                      Database = "AdventureWorks2019")

data <- dbGetQuery(conn, "SELECT * FROM Sales.SalesOrderHeader;")
head(data)
dbDisconnect(conn)