Michał Bojanowski mbojan

## rcolorsheet.R
library(RColorBrewer)
library(colorRamps)


pdf("rcolorsheet.pdf", paper="a4r", width=11.6, height=8.2, onefile=TRUE)

### page 1

# grDevices::colors
m <- matrix(1:660, 60, 11)

## zespol.R
# zainstalować 'googlesheets' jeśli nie ma
devtools::install_github("jennybc/googlesheets")

library(googlesheets)
library(igraph)
library(scales)


# autoryzacja
gs_auth()

## imputation.R
# Jako notebook w RStudio (Ctrl+Shift+K)

suppressPackageStartupMessages({
  library(MASS)
  library(dplyr)
  library(tidyr)
  library(ggplot2)
  library(mice)
})

## rpm.R

# @knitr template_objects
# For package 'rpm'

# data

rmd.template <-
'\n
## Introduction
ADD_TEXT_HERE

## ical2csv.R
library(ical)
library(dplyr)
library(tidyr)
library(lubridate)

d <- list.files("~/Downloads", "^[0-9]+.ics$", full.names = TRUE) %>%
  lapply(ical::ical_parse_df) %>%
  lapply(mutate_if, is.factor, as.character) %>%
  bind_rows() %>%
  as_tibble()

## nyt-spiral.R
library(dplyr)
library(ggplot2)

rawdata <- readr::read_csv(
  "https://github.com/CSSEGISandData/COVID-19/raw/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv",
  col_types = paste(rep(c("c", "d"), c(2, 790)), collapse="")
)

dat <- rawdata |>
  filter(`Country/Region` == "Poland") |>
	library(RColorBrewer)
	library(colorRamps)


	pdf("rcolorsheet.pdf", paper="a4r", width=11.6, height=8.2, onefile=TRUE)

	### page 1

	# grDevices::colors
	m <- matrix(1:660, 60, 11)
	# zainstalować 'googlesheets' jeśli nie ma
	devtools::install_github("jennybc/googlesheets")

	library(googlesheets)
	library(igraph)
	library(scales)


	# autoryzacja
	gs_auth()
	# Jako notebook w RStudio (Ctrl+Shift+K)

	suppressPackageStartupMessages({
	library(MASS)
	library(dplyr)
	library(tidyr)
	library(ggplot2)
	library(mice)
	})

	# @knitr template_objects
	# For package 'rpm'

	# data

	rmd.template <-
	'\n
	## Introduction
	ADD_TEXT_HERE
	library(ical)
	library(dplyr)
	library(tidyr)
	library(lubridate)

	d <- list.files("~/Downloads", "^[0-9]+.ics$", full.names = TRUE) %>%
	lapply(ical::ical_parse_df) %>%
	lapply(mutate_if, is.factor, as.character) %>%
	bind_rows() %>%
	as_tibble()
	library(dplyr)
	library(ggplot2)

	rawdata <- readr::read_csv(
	"https://github.com/CSSEGISandData/COVID-19/raw/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv",
	col_types = paste(rep(c("c", "d"), c(2, 790)), collapse="")
	)

	dat <- rawdata \|>
	filter(`Country/Region` == "Poland") \|>