From 6e868cfeae7067883fbd39b07532702397ce6fc1 Mon Sep 17 00:00:00 2001 From: Arthur Ferreira Date: Wed, 6 Sep 2023 15:14:00 -0300 Subject: [PATCH] Commit. --- .DS_Store | Bin 8196 -> 8196 bytes 1_INI.Rmd | 13 ++ Scripts/all-required-packages.R | 3 - cache/has/__packages | 9 - docs/galeria.html | 221 +--------------------- docs/index.html | 8 +- galeria.Rmd | 324 +++++--------------------------- 7 files changed, 66 insertions(+), 512 deletions(-) diff --git a/.DS_Store b/.DS_Store index 17c2bbc2e59e9842c4d0cc1186422eb3b68a0320..f6ce9179c75166e6c4bd004639a0f9b146f60222 100644 GIT binary patch delta 14 VcmZp1XmQvOEy5_dIYwj!HvlC}1egE- delta 14 VcmZp1XmQvOEy9?vIYwj!HvlH~1m6Gv diff --git a/1_INI.Rmd b/1_INI.Rmd index 14eebb7..1302368 100644 --- a/1_INI.Rmd +++ b/1_INI.Rmd @@ -30,6 +30,11 @@ knitr::opts_chunk$set( source("Scripts/all-required-packages.R", local = knitr::knit_global()) ``` +```{r update, include = FALSE, echo = FALSE, warning = FALSE, message = FALSE, results = "hide"} +# update all packages +update.packages(checkBuilt = TRUE, ask = FALSE) +``` + ```{r nojekyll, results = "hide"} if(!file.exists(".nojekyll")) { file.create('.nojekyll') @@ -354,6 +359,13 @@ has.repositorios.cooperacao <- ) ``` +```{r try-vidos, results = "hide"} +has.videos <- + !is.error(try(readxl::read_excel("PPG/Videos.xlsx", sheet = 1), + silent = TRUE) + ) +``` + ```{r ppg-data, results = "hide", eval = all(has.dados.cadastrais, has.sucupira.files)} # projetos - membros sheet <- "Docentes" @@ -1233,6 +1245,7 @@ has.premio.capes has.producao has.repositorios.cooperacao has.repositorios.sede +has.videos # data sucupira has.artigos.completos.sucupira diff --git a/Scripts/all-required-packages.R b/Scripts/all-required-packages.R index c1e61a3..c8e0aab 100644 --- a/Scripts/all-required-packages.R +++ b/Scripts/all-required-packages.R @@ -115,9 +115,6 @@ if (!require("pacman")) install.packages("pacman") pacman::p_load_gh("trinker/textreadr") -# update all packages -update.packages(checkBuilt = TRUE, ask = FALSE) - # load all libraries packs <- c(packs.cran, packs.git) diff --git a/cache/has/__packages b/cache/has/__packages index 1df312d..e2104f4 100644 --- a/cache/has/__packages +++ b/cache/has/__packages @@ -1,10 +1,3 @@ -base -methods -datasets -utils -grDevices -graphics -stats alluvial anytime BBmisc @@ -25,7 +18,6 @@ fontawesome ggplot2 ggpubr ggraph -grid gridExtra gtsummary hrbrthemes @@ -69,7 +61,6 @@ purrr forcats NLP tm -tools sm zoo vioplot diff --git a/docs/galeria.html b/docs/galeria.html index 1bbe8b2..d5811a1 100644 --- a/docs/galeria.html +++ b/docs/galeria.html @@ -701,229 +701,12 @@

Galeria

href="https://www.linkedin.com/shareArticle?mini=true&url=">


-
-

Videos

+
+

Videos

-
-

Aula inaugural

-


-
-
- -
-
-

Início  ⬆️

-


-
-
-

Nacionais

-
-

Simpósio Docente UNISUAM

-


-
-
- -
-
-

Início  ⬆️

-


-
-
-

Simpósio Paradesportivo Carioca

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
-

Semana de Pesquisa, Extensão e -Inovação

-


-
-
- -
-
-

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

-
-

Pós-Doutorado

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️

-


-
-
-

Eventos

-


-
-
- -
-
-

Início  ⬆️

-


-
-
- -
-
-

Início  ⬆️



-
-
- -
-
-

Início  ⬆️

-


-
-
-

Seminários

-


-
-
- -
-
-

Início  ⬆️

-


-
-

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"