I am trying to run checkDataQuality function on a data frame created from a reactive SQL Query in R shiny.
sqlOutput1 <- eventReactive(input$pick_tablenames,({
sqlInput1 <- paste("select *
from ",input$pick_tablenames," a left join ",outputDataMart()," b on a.trade_oid=b.trade_oid where b.FEED_SRC=","'",input$pick_feedsrc,"'",
"and b.SRC_FILE=" ,"'",input$pick_srcfile,"'"," and b.DT= ","'",input$pick_dt,"'","limit 50",
sep="")
dbGetQuery(con, sqlInput1)
}))
sample1 <- reactive({
sqlOutput1=sqlOutput1()
sample1 = data.frame(sqlOutput1)
})
num.file <- paste(tempdir(), "/dqr_num.csv", sep= "")
cat.file <- paste(tempdir(), "/dqr_cat.csv", sep= "")
checkDataQuality(data= sample1, out.file.num= num.file, out.file.cat= cat.file)
I am facing issues trying to create the dataframe sample1. Could you please help me with this?