SQLAndR

#install.packages("RODBC")

library(RODBC)

db_conn <-odbcConnect("LocalDSN", rows_at_time =1)
if(db_conn == -1){
  quit("no", 1)
}
print(db_conn)

## RODBC Connection 1
## Details:
##   case=nochange
##   DSN=LocalDSN
##   Description=MyDSNForUseWithR
##   UID=
##   Trusted_Connection=Yes
##   WSID=DESKTOP-NQVO0T8
##   DATABASE=SQLandR

sql <-"SET NOCOUNT ON; Select * from SQLAndRView;"

df_tstsql <- sqlQuery(db_conn, sql)
odbcClose(db_conn)

View(df_tstsql)