johnmackintosh

library(dplyr)
library(data.table)
library(ggplot2)
library(cusumcharter)
library(purrr)
library(tidyr)
library(ggExtra)


# make the link dynamic

johnmackintosh

ndays <- 7
ndays_sql <- ndays * -1

con <- DBI::dbConnect(odbc::odbc(),
                      Driver = "SQL Server",
                      Server = "SERVER", 
                      Database = "TABLE",
                      Trusted_Connection = "True",
                      Port = 1433)
                      

johnmackintosh

library(data.table)

?`[.data.table`

DT <- data.table(x=rep(c("b","a","c"),each=3), y=c(1,3,6), v=1:9)
X  <- data.table(x=c("c","b"), v=8:7, foo=c(4,2))

colnames(DT)
# [1] "x" "y" "v"

johnmackintosh

----

Power BI Official Software - Cost: $0 Dimes

----

Power BI Desktop. From the Microsoft Store updates automatically. #WINNING
URL: https://aka.ms/pbidesktopstore

Power BI Desktop. From download center requires manual updating. #NOTWINNING

johnmackintosh

library(lubridate)
library(dplyr)
library(tidyr)
library(readxl)
library(purrr)
library(here)
setwd(here("2021-04"))


wb <- "PD 2021 Wk 4 Input.xlsx"

johnmackintosh

library(lubridate)
library(dplyr)
library(tidyr)
library(readxl)
library(purrr)

library(here)
setwd(here("2021-03"))

johnmackintosh

library(here)
library(data.table) 
library(stringr)

setwd(here("2021-02"))

# read in and process

DT <- fread('Input.csv')

johnmackintosh

library(data.table) 
library(gsheet)
library(ggplot2)

link <- 'https://docs.google.com/spreadsheets/d/1GYv4573GnJa-C21NYeDj-OhFSTwrK0SnQNF2IQFqa50/edit#gid=0'

import <- gsheet2text(link, format = 'tsv')

DT <- fread(import)
DT[, Date := as.IDate(DT$Date, format = "%d/%m/%Y")]

johnmackintosh

 <script>document.write(new Date().getFullYear())</script>

or


<script>new Date().getFullYear()>2005&&document.write("-"+new Date().getFullYear());</script>

johnmackintosh

https://www.gastonsanchez.com/packyourcode/