R/UI/dqTab.R

In ravi9884/PersonalFinance: Creates personal expenses and budget dashboard

library(shiny)
dqTab <- tabPanel("Data Quality Issues",
                  fluidRow(
                           h2("Mint Transactions")
                  ),
                  fluidRow(
                    column(3,
                           checkboxInput('mintShowErrors', 'Show Only Errored Records', value = TRUE, width = NULL))
                  ),
                  fluidRow(
                           tableOutput('dqMint')
                    ),
                  fluidRow(
                    h2("Data Entry Transactions")
                  ),
                  fluidRow(
                    column(3,
                           checkboxInput('tranShowErrors', 'Show Only Errored Records', value = TRUE, width = NULL))
                  ),
                  fluidRow(tableOutput('dqTran')
                    )
                  )