inst/application/global.R

In kuhnrl30/LendingClubAccess: Graphical User Interface for Using the Lending Club API

# source("AccountSummUI.R")
# source("MarketUI.R")
# source("SetupUI.R")
# source("TransferUI.R")
# source("menuOptions.R")
library(tidyr)
library(LendingClub)
library(dplyr)
library(plotly)
library(LendingClubData)
library(shinyBS)
library(shinycssloaders)
status_opts<- c("All",
                "Current",
                "Issued",
                "In Funding",
                "Fully Paid",
                "In Grace Period",
                "Late (16-30 days)",
                "Late (31-120 days)",
                "Charged Off")

PortfolioNames<- c("All",LendingClub::PortfoliosOwned()$content$portfolioName)

purpose_opts <- c("All",
                  "car",
                  "credit_card",
                  "debt_consolidation",
                  "house",
                  "home_improvement",
                  "major_purpose",
                  "medical",
                  "moving",
                  "small_business",
                  "vacation",
                  "other")

at_risk_status<- c("Late (16-30 days)",
                   "Late (31-120 days)",
                   "Charged Off")

deposit_opts<- c("LOAD_NOW",
                 "LOAD_ONCE",
                 "LOAD_WEEKLY",
                 "LOAD_BIWEEKLY",
                 "LOAD_ON_DAY_1_AND_16",
                 "LOAD_MONTHLY")