---
title: "Skills assessment"
output: html_notebook
---

First, if necessary, install some packages:

```{r}
is_package_installed = function(package) {
  requireNamespace(basename(package), quietly = TRUE)
}
if (!is_package_installed("gplots")) install.packages("gplots")
if (!is_package_installed("googlesheets4")) install.packages("googlesheets4")
if (!is_package_installed("remotes")) install.packages("remotes")
if (!is_package_installed("RSkittleBrewer")) remotes::install_github("alyssafrazee/RSkittleBrewer")
```

Then load the packages
```{r}
library(gplots)
library(googlesheets)
library(RSkittleBrewer)
```


Set options and link to sheet

```{r}
options(httr_oob_default=TRUE) 
my_url = "https://docs.google.com/spreadsheets/d/1WBrH655fxqKW1QqvD5hnqvvEWIvRzDJcKEgjjFeYxeM/edit?usp=sharing"
my_gs = gs_url(my_url)
```

Read the sheet

```{r}
dat = gs_read(my_gs)
head(dat)
```



Set up the colors

```{r}
trop = RSkittleBrewer("tropical")
colramp = colorRampPalette(c(trop[3],"white",trop[2]))(9)
palette(trop)
```

Create the plot

```{r}
dat = as.matrix(dat)
dat[is.na(dat)]= 0

par(mar=c(5,5,5,5))
heatmap.2(as.matrix(dat),col=colramp,Rowv=NA,Colv=NA,
          dendrogram="none", scale="none",
          trace="none",margins=c(10,2))
```

