Untitled

#install.packages("odbc")
require(odbc)

library(DBI)
library(dplyr)
library(dbplyr)
library(odbc)
conexion <- dbConnect(odbc::odbc(), 
                      .connection_string = "Driver={MariaDB};",
                      Server="localhost",
                      Database="proyecto",
                      UID = "root",
                      PWD = "",
                      Port = 3306,
                      timeout = 10)



dbListTables(conexion)#Listar las tablas
dbListFields(conexion, "productos")

prodtot <- dbGetQuery(conexion,"select sum(Cantidad) from proyecto.productos where Tipo_Documento like '%Devoluciones%'")

print(paste("Total productos devueltos:", prodtot))