R/constants.R

In daniel-rodak/budgetr: Package for managing home budget

#' @export
#' @noRd
CNSTtransactionCols <- c("Date", "Type", "Title", "Payee", "Amount", "Category")
#' @export
#' @noRd
CNSTtrOneRowTemplate <- data.frame(
  Date = Sys.Date(),
  Type = "",
  Title = "",
  Payee = "",
  Amount = 0,
  Category = "",
  stringsAsFactors = FALSE
)

#' @export
#' @noRd
CNSTDTPLLanguage <- list(
  lengthMenu = "Pokaż _MENU_ wierszy",
  search = "Szukaj",
  info = "Wyświetlam _START_ do _END_ wszystkich _TOTAL_ pozycji",
  infoEmpty = "Wyświetlam 0 do 0 wszystkich 0 pozycji",
  paginate = list(
    'first' = "Pierwsza",
    'last' = "Ostatnia",
    'next' = "Następna",
    'previous' = "Poprzednia"
  )
)

#' @export
#' @noRd
CNSTtransactionColsPL <- c("Data", "Typ", "Tytuł", "Podmiot", "Kwota",
                           "Kategoria", "Kategoria budżetowa", "Saldo")


CNSTsupportedBanks <- c("mbank", "idea")
CNSTtransactionTypes <- c("Date", "character", "character", "character", "numeric", "character")
CNSTtransactionTemplate <- data.frame(
  Date = as.Date(character()),
  Type = character(),
  Title = character(),
  Payee = character(),
  Amount = numeric(),
  Category = character(),
  stringsAsFactors = FALSE
)
CNSTdefaultBudgetCats <- enc2utf8(c(
  "Dochód:Regularne", "Dochód:Nieregularne",
  "Dochód:Zyski kapitałowe", "Dochód:Zyski kapitałowe po opodatkowaniu",
  "Wydatki:Podatki", "Wydatki:Regularne",
  "Wydatki:Nieregularne", "Wydatki:Rozrywka",
  "Oszczędności:krótkoterminowe", "Oszczędności:długoterminowe",
  "Oszczędności:Emerytura", "Systemowe"))
CNSTreportRows <- enc2utf8(c(
  "Saldo" = "Balance",
  "Kwota" = "Amount",
  "Nadkategorie budżetowe" = "ParBudgCat",
  "Kategorie budżetowe" = "BudgetCategory",
  "Nadkategorie" = "ParCat",
  "Kategorie" = "Category",
  "Konta" = "Account",
  "Tygodnie" = "Week",
  "Miesiące" = "Month"))
CNSTreportCols <- enc2utf8(c(
  "Nadkategorie budżetowe" = "ParBudgCats",
  "Kategorie budżetowe" = "BudgetCategory",
  "Nadkategorie" = "ParCats",
  "Kategorie" = "Category",
  "Konta" = "Account",
  "Data" = "Date",
  "Tygodnie" = "Week",
  "Miesiące" = "Month",
  "Kwartały" = "Quarter",
  "Lata" = "Year"))
CNSTreportTypes <- enc2utf8(c(
  "Tabela" = "table",
  "Wykres słupkowy" = "bar",
  "Wykres liniowy" = "line"))
CNSTreportDateRanges <- enc2utf8(c(
  "Ostatnie 30 dni" = "30days",
  "Bieżący miesiąc" = "currMonth",
  "Poprzedni miesiąc" = "prevMonth",
  "Ostatnie 3 miesiące" = "last3Months",
  "Ostatnie 6 miesięcy" = "last6Months",
  "Ostatni rok" = "lastYear"))