-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathSardinia.Rmd
126 lines (92 loc) · 2.36 KB
/
Sardinia.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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
---
title: "<center>Sardinia<center>"
output:
flexdashboard::flex_dashboard:
theme:
version: 4
bootswatch: minty
---
```{r, echo=FALSE, results='hide',message=FALSE}
library(plotly)
library(DT)
library(htmltools)
library(reactable)
library(bslib)
library(thematic)
library(knitr)
library(plotly)
library(shiny)
library(plyr)
library(flexdashboard)
```
SEPT_2024_CO1 {data-navmenu="Locoli"}
=====================================
## Row 2 {data-height="450" data-padding="15"}
### Map
```{r, echo=FALSE,message=FALSE, fig.align='center'}
knitr::include_graphics("SARD/cave.png")
```
### detected species
```{r, echo=FALSE}
thematic::thematic_rmd(font = "auto")
load("SARD/SEPT24/CO1/DETECT_SPECIES.RDATA")
datatable(DETECT_SPECIES, options = list(
pageLength = 10, # Set the number of rows visible initially
scrollY = 500, # Enable vertical scrolling with a fixed height
scrollX = TRUE# Enable horizontal scrolling for wide tables
), width = "10%")
```
## Row 2 {data-height="450" data-padding="15"}
### NMDS
```{r, echo=FALSE}
load("SARD/SEPT24/CO1/NMDS.Rdata")
ggplotly(a)
```
### Krona
```{r, echo=FALSE, results='asis'}
htmltools::tags$iframe(
src = "SARD/SEPT24/CO1/krona_plot.html",
width = "100%",
height = "500px",
frameborder = "0"
)
```
SEPT_2024_28S {data-navmenu="Locoli"}
=====================================
## Row 2 {data-height="450" data-padding="15"}
### Map
```{r, echo=FALSE,message=FALSE, fig.align='center'}
knitr::include_graphics("SARD/cave.png")
```
### detected species
```{r, echo=FALSE}
thematic::thematic_rmd(font = "auto")
load("SARD/SEPT24/28S/DETECT_SPECIES.RDATA")
datatable(DETECT_SPECIES, options = list(
pageLength = 10, # Set the number of rows visible initially
scrollY = 500, # Enable vertical scrolling with a fixed height
scrollX = TRUE# Enable horizontal scrolling for wide tables
), width = "10%")
```
## Row 2 {data-height="450" data-padding="15"}
### NMDS
```{r, echo=FALSE}
load("SARD/SEPT24/28S/NMDS.Rdata")
ggplotly(a)
```
### Krona
```{r, echo=FALSE, results='asis'}
htmltools::tags$iframe(
src = "SARD/SEPT24/28S/krona_plot.html",
width = "100%",
height = "700px",
frameborder = "0"
)
```
JUL_2024 {data-navmenu="Aqueduct"}
=====================================
### Detected species
```{r, echo=FALSE}
load("SARD_AQ/JUL/CO1/DETECT_SPECIES.RDATA")
datatable(DETECT_SPECIES)
```