Commit 580311a4 authored by Jalbert, Joe's avatar Jalbert, Joe
Browse files

Added Finance Table Helper Function

parent f575ffe9
# Generated by roxygen2: do not edit by hand
export(CSTable)
export(FitFlextableToPage)
export(SISTable)
export(appendInteraction)
export(document)
export(multiplot)
......@@ -10,6 +12,7 @@ export(report)
export(se)
export(simplifyAppend)
export(wbsave)
import(dbplyr)
import(flextable)
import(grid)
import(lazyeval)
......
......@@ -43,7 +43,6 @@ simplifyAppend <- function(input) {
#' @return Creates a Excel workbook from the supplied dataframe
#' @import tidyverse
#' @import openxlsx
#' @import lazyeval
#' @export
#'
#' @examples
......@@ -386,6 +385,9 @@ pairwiseReport <- function(Report, Data) {
}
#' Creates a document including the Report and Pairwise comparisons produced above
#'
#' @param Report The report output by report/appendInteraction
......@@ -481,5 +483,45 @@ document <- function(Report, Pairwise, measureNames, factorNames, percentOutcome
doc
}
#' Simplifies Campus Solutions Table Calls
#'
#' @param TABLENAME Name of the table. Converted automatically to UPPERCASE
#'
#' @return
#' @import tidyverse
#' @import dbplyr
#' @export
#'
#' @examples
CSTable=function(TABLENAME){
output=tbl(CS, in_schema("SISCS",str_to_upper(TABLENAME)))
}
#' Simplifies SIS Table Calls
#'
#' @param TABLENAME Name of the table. Converted automatically to UPPERCASE
#'
#' @return
#' @import tidyverse
#' @import dbplyr
#' @export
#'
#' @examples
SISTable=function(TABLENAME){
output=tbl(SIS, str_to_upper(TABLENAME))
}
#' Pulling Finance EDW Tables
#'
#' @param TableName String. Name of the Table to be pulled.
#' @param DB Reference to the connection. Defaults to EDW
#'
#' @return
#' @import tidyverse
#' @import dbplyr
#' @export
#'
#' @examples
edwFinance=function(TableName, DB=EDW){
output=tbl(DB, in_schema("FINANCE",str_to_upper(TableName)))
}
\ No newline at end of file
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/JoeToolFunctions.R
\name{CSTable}
\alias{CSTable}
\title{Simplifies Campus Solutions Table Calls}
\usage{
CSTable(TABLENAME)
}
\arguments{
\item{TABLENAME}{Name of the table. Converted automatically to UPPERCASE}
}
\value{
}
\description{
Simplifies Campus Solutions Table Calls
}
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/JoeToolFunctions.R
\name{SISTable}
\alias{SISTable}
\title{Simplifies SIS Table Calls}
\usage{
SISTable(TABLENAME)
}
\arguments{
\item{TABLENAME}{Name of the table. Converted automatically to UPPERCASE}
}
\value{
}
\description{
Simplifies SIS Table Calls
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment