R/UI/tranReconTab.R

In ravi9884/PersonalFinance: Creates personal expenses and budget dashboard

library(shiny)
tranReconTab <- tabPanel("Reconcile Transaction Data",
                  fluidRow(
                    #The combination should be 2 in Transactions and ALL in mint
                    column(3,
                           selectInput("rcnTabTr_tranwk", "Data Entry History", c("1","2","ALL"), selected = "2")),
                     column(3,
                            selectInput("rcnTabTr_mintWeek", "Mint Transaction History", c("1","2","ALL"), selected = "ALL")),
                    column(3,
                           checkboxInput("rcnTabTr_showRecon", "Show Reconciled", value = FALSE))
                   ),
                  fluidRow(
                    column(4,
                           h2("Data Entry Transactions"),
                           tableOutput('reconTran')
                    ))
)