R/ui.R

In ravi9884/PersonalFinance: Creates personal expenses and budget dashboard

# This is the user-interface definition of a Shiny web application. You can
# run the application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

path <- getwd()
isRunningInShiny <- Sys.getenv('SHINY_PORT') != ""

if(endsWith(path,'R') | isRunningInShiny){
  source('UI/dqTab.R')
  source('UI/mintReconTab.R')
  source('UI/tranReconTab.R')
  source('UI/categoryExpenseTab.R')
} else {
  source('R/UI/dqTab.R')
  source('R/UI/mintReconTab.R')
  source('R/UI/tranReconTab.R')
  source('R/UI/categoryExpenseTab.R')
}


# Define UI for application that draws a histogram
shinyUI(
  fluidPage(
    titlePanel("Personal Finance"),
    tabsetPanel(
  dqTab,
  mintReconTab,
  tranReconTab,
  catExpenseTab
  )
  )
  )