In petetalbert/rust:

knitr::opts_chunk$set(echo = FALSE,fig.width = 6.5,message = FALSE,warning = FALSE,cache = FALSE,dpi = 700)
options(tibble.print_max = 50, tibble.print_min = 20)

#tidyverse
library(tidyverse)
library(odbc)
library(DBI)
library(lubridate)
library(readxl)
library(broom)

#formatting
library(extrafont)
library(knitr)
library(scales)
library(janitor)
library(ggrepel)

#Color palettes
ustPalettePurp = c("#510c76", "#8348ad", "#a97cca", "#9e28b5", "#98999b")
ustPaletteSecond = c("#94d600", "#6cc5e9", "#ff6c00", "#cf009f","#0099a9")
theme_set(theme_minimal(base_family = "Calibri", base_size = 10))

con <- DBI::dbConnect(odbc::odbc(), dsn = "dsn_name", uid = Sys.getenv("userid"), pwd = Sys.getenv("pwd"))

df <- dbGetQuery(con, statement = read_file("your_sql_file.sql"))
df1 <- dbGetQuery(con, statement = "your_select_statement")

petetalbert/rust documentation built on Dec. 16, 2019, 12:35 p.m.