R/UI/categoryExpenseTab.R

In ravi9884/PersonalFinance: Creates personal expenses and budget dashboard

library(shiny)
catExpenseTab <- tabPanel("Expenses",
                  fluidRow(
                    #The combination should be 2 in mint and ALL in transactions
                    column(3,
                           selectInput("catExpenseTab_Beneficiary", "Beneficiary", c("Ravi","Soundari","ALL"), selected = "ALL")
                    )
                  ),
                  fluidRow(
                    column(4,
                           h2("Total Expenses in last 30 days"),
                           tableOutput('catExpenseTab_TotalTransactions')
                    )),
                  fluidRow(
                    column(4,
                           h2("Expenses per Category & Beneficiary"),
                           tableOutput('catExpenseTab_CategoryBeneficiaryTransactions')
                    ),
                    column(4,
                           h2("Expenses per Category"),
                           tableOutput('catExpenseTab_CategoryTransactions')
                    ),
                  column(4,
                         h2("Expenses per Beneficiary"),
                         tableOutput('catExpenseTab_BeneficiaryTransactions')
                  ))

)