Podcasts
diff --git a/docs/index.html b/docs/index.html
index 67603bd..4d9de40 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -652,7 +652,7 @@
OBSERVATÓRIO
Current session info
-─ Session info ─────────────────────────────────────
+─ Session info ────────────────────────────────
setting value
version R version 4.3.1 (2023-06-16)
os macOS Ventura 13.5.1
@@ -662,10 +662,10 @@ OBSERVATÓRIO
collate en_US.UTF-8
ctype en_US.UTF-8
tz America/Sao_Paulo
- date 2023-09-04
+ date 2023-09-06
pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
-─ Packages ─────────────────────────────────────────
+─ Packages ────────────────────────────────────
package * version date (UTC) lib source
abind 1.4-5 2016-07-21 [1] CRAN (R 4.3.0)
alluvial * 0.1-2 2016-09-09 [1] CRAN (R 4.3.0)
@@ -857,7 +857,7 @@ OBSERVATÓRIO
[1] /Library/Frameworks/R.framework/Versions/4.3-x86_64/Resources/library
-────────────────────────────────────────────────────
+───────────────────────────────────────────────
diff --git a/galeria.Rmd b/galeria.Rmd
index 87a6d39..bbae2b8 100644
--- a/galeria.Rmd
+++ b/galeria.Rmd
@@ -45,287 +45,57 @@ source("Scripts/social-media-sharing.R", local = knitr::knit_global())
-## **Videos** {#videos}
+## **Videos** {#videos .tabset}
-### **Aula inaugural**
-
-
-
-
-
-
Início ⬆️
-
-
-
-### **Nacionais** {.tabset}
-
-#### **Simpósio Docente UNISUAM**
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Simpósio Paradesportivo Carioca**
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Semana de Pesquisa, Extensão e Inovação** {.tabset}
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Seminários**
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Semana Nacional de Ciência e Tecnologia**
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Entrevistas**
-
-
-
-
-
-
-
-
Início ⬆️
-
-
-
-### **Internacionais** {.tabset}
-
-#### **Pós-Doutorado**
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Eventos**
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
Início ⬆️
-
-
-
-
-
-
-
-
Início ⬆️
-
-
-
-#### **Seminários**
+```{r, eval = !has.videos}
+cat('
')
+```
-
+```{r videos, eval = has.videos}
+# read separate sheets
+file.path <- "PPG/Videos.xlsx"
+abas <- excel_sheets(file.path)
+topics <- c()
+videos.list <- vector(mode = "list", length = length(abas))
-
+# iterate across sheets
+for (j in 1:length(abas)) {
+ videos <-
+ readxl::read_excel(file.path,
+ sheet = abas[j],
+ col_types = c("text"))
+ # replace the link by a tag
+ for (i in 1:dim(videos)[1]) {
+ videos[i, 4] <-
+ paste0('
')
+ }
+
+ # store data to print table
+ videos.list[[j]] <- videos
+}
-
Início ⬆️
+# iterate across sheets
+for (j in 1:length(abas)) {
+ cat('\n\n\n\n')
+ cat("### **", abas[j], "**", "\n", sep = "")
+ cat('\n\n\n\n')
+ print(
+ kable(videos.list[[j]][4], align = c("l", rep("c", ncol(
+ videos
+ ) - 2), "r"), escape = FALSE, col.names = NA) %>% kable_styling(
+ bootstrap_options = c("hover", "condensed", "responsive"),
+ full_width = T,
+ position = "center"
+ )
+ )
+ cat('
Início ⬆️')
+}
+```
@@ -350,7 +120,7 @@ for (j in 1:length(abas)) {
podcasts <-
readxl::read_excel(file.path,
sheet = abas[j],
- col_types = c("text", "text", "text"))
+ col_types = c("text"))
# replace the link by a tag
for (i in 1:dim(podcasts)[1]) {
podcasts[i, 3] <-
@@ -358,7 +128,7 @@ for (j in 1:length(abas)) {
}
# store data to print table
- podcasts.list[[j]] <- podcasts[i,3]
+ podcasts.list[[j]] <- podcasts
}
# iterate across sheets
@@ -369,7 +139,7 @@ for (j in 1:length(abas)) {
print(
kable(podcasts.list[[j]], align = c("l", rep("c", ncol(
podcasts
- ) - 2), "r"), escape = FALSE) %>% kable_styling(
+ ) - 2), "r"), escape = FALSE, col.names = NA) %>% kable_styling(
bootstrap_options = c("hover", "condensed", "responsive"),
full_width = T,
position = "center"