johnmackintosh

git branch -m master main
git fetch origin
git branch -u origin/main main
git remote set-head origin -a

johnmackintosh

path <- "https://github.com/owner/repo/raw/main/somedata.rds"

rdsdl <- function(path){
readRDS(url(path, "rb"))
}

johnmackintosh

options(dplyr.summarise.inform = FALSE)

#https://www.tidyverse.org/blog/2020/05/dplyr-1-0-0-last-minute-additions/

#https://rstats-tips.net/2020/07/31/get-rid-of-info-of-dplyr-when-grouping-summarise-regrouping-output-by-species-override-with-groups-argument/

johnmackintosh

### old way

```r
 df %>%
  mutate(row = row_number()) %>%
  gather('column', 'source', -row, -N)  # key = column, value = source, retain row and N
  # further transforms

```

johnmackintosh

# I want 18 separate folders for graphic outputs, and 17 separate folders for different outputs
# they will be saved in the "output" folder under my main project directory

library(fs)
library(here)

here <- here::here()

tablenos <- paste0("table",seq(1:17))
fignos <- paste0("fig",seq(1:18))

johnmackintosh

johnmackintosh

teams <- c("Apple", "Banana", "Clementine")
dates <- seq(as.Date("2017-01-01"), as.Date("2021-01-01"), "days")

# 5 columns- client id, referral id, team_desc, referral_date, discharge_date

test_frame <- purrr::map_dfr(1 : 100, function(x){
  
  rnum <- sample(1 : 5, 1)
  team_name <- sample(teams, rnum, replace = TRUE)

johnmackintosh

# columns to update:
char_cols <- c("areaname", "parent_area")

# 1. convert to character, then
# 2. replace '&' with 'and' 

DT[,(char_cols) := lapply(.SD, as.character), .SDcols = char_cols]
DT[,(char_cols) := lapply(.SD, gsub, pattern = ' & ',  replacement = ' and '), .SDcols = char_cols]

johnmackintosh

library(tidyverse)
library(lubridate)

## each id is a person, and each row is one episode
## the two episode for id 1 overlap!
example_dates <- tibble(
  id = c(1,1,2,2),
  date_start = ymd(c("2020-01-01", "2020-01-03","2020-04-01", "2020-04-15")),
  date_end = ymd(c("2020-01-05", "2020-01-10", "2020-04-04", "2020-04-16"))
) #%>%

johnmackintosh

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


# make the link dynamic