-
Notifications
You must be signed in to change notification settings - Fork 1
/
test.Rmd
26 lines (22 loc) · 977 Bytes
/
test.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
---
title: "test taxo"
author: "Daniel Ricard"
date: "August 21, 2019"
output: pdf_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
```
A table showing species in taxonomic order.
## Taxonomic table
```{r test}
spec.tab <- read.csv("./species-table2.csv", encoding = "UTF-8")
spec.tab$class <- paste0("Class: ", spec.tab$class)
spec.tab$order <- paste0("Order: ", spec.tab$order)
vars <- c("class","order","family","scientificname","comm.english","comm.fr","species.code","aphia.id")
knitr::kable(spec.tab[,vars], "latex", booktabs = TRUE, longtable = TRUE, align = "c", col.names = c("Class","Order","Family","Scientific name","English name","French name","Species code","AphiaID")) %>%
kableExtra::landscape() %>%
kableExtra::collapse_rows(1:3, row_group_label_position = 'stack') %>%
kableExtra::kable_styling(font_size = 9, latex_options = "repeat_header", repeat_header_text = "", repeat_header_method = "replace")
```