John MacKintosh johnmackintosh

[general]

[geo data]

Introduction

Let's assume a simple schema consisting of two tables.

STATISTICS for COVID-19 daily statistics like confirmed cases, deaths, etc.
DEMOGRAPHICS with addition per-country data like population, area, population density and more

This table could have columns such as

I dont use base R for everything. But I use & ❤️ base R

Feel free to see image & shared Gist link. You might find some useful ones.

	Gene Symbol Gene_description Chromosome Start End NCBI WormBase WormBase_seq GO Human_GeneID Human_GeneName Identity Human_Identity
	WBGene00000001 aap-1 Phosphoinositide 3-kinase adapter subunit; Phosphoinositide kinase AdAPter subunit [Source:UniProtKB/TrEMBL;Acc:G5EDP9] I 5107833 5110183 172141 aap-1 Y110A7A.10 kinase activity ENSG00000117461 PIK3R3 18.9655 21.4751
	WBGene00000001 aap-1 Phosphoinositide 3-kinase adapter subunit; Phosphoinositide kinase AdAPter subunit [Source:UniProtKB/TrEMBL;Acc:G5EDP9] I 5107833 5110183 172141 aap-1 Y110A7A.10 phosphorylation ENSG00000117461 PIK3R3 18.9655 21.4751
	WBGene00000001 aap-1 Phosphoinositide 3-kinase adapter subunit; Phosphoinositide kinase AdAPter subunit [Source:UniProtKB/TrEMBL;Acc:G5EDP9] I 5107833 5110183 172141 aap-1 Y110A7A.10 protein kinase binding ENSG00000117461 PIK3R3 18.9655 21.4751
	WBGene00000001 aap-1 Phosphoinositide 3-kinase adapter subunit; Phosphoinositide kinase AdAPter subunit [Source:UniProtKB/TrEMBL;Acc:G5EDP9] I 5107833 5110183 172141 a

	library(pointblank)
	library(palmerpenguins)

	informant_pp <-
	create_informant(
	read_fn = ~ palmerpenguins::penguins,
	tbl_name = "penguins",
	label = "The `penguins` dataset from the palmerpenguins 📦."
	) %>%
	info_columns(

	#' Set knitr hooks for htmlwidgets with Jekyll/GitHub Pages
	#'
	#' This functions sets a `knitr` hook so that any HTML widgets that were
	#' printed (i.e., objects that inherit the `'htmlwidget'`, like those from
	#' the `htmlwidgets` or `plotly` packages) will work with a Jekyll system,
	#' like the one used for GitHub Pages.
	#'
	#' It essentially sets a hook so that, when the document is finished being
	#' knitted, it moves all the dependencies necessary for the widgets to a
	#' directory, and then adds HTML code to the document to load those files

	read_csv("https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_19-covid-Confirmed.csv") %>%
	gather(date, cases, 5:ncol(.)) %>%
	mutate(date = as.Date(date, "%m/%d/%y")) %>%
	group_by(country = `Country/Region`, date) %>%
	summarise(cases = sum(cases)) %>%
	filter(country != "Others" & country != "Mainland China") %>%
	bind_rows(
	tibble(country = "Republic of Korea", date = as.Date("2020-03-11"), cases = 7755)
	) %>%
	group_by(country) %>%

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

	or


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