Skip to content

Commit

Permalink
Commit.
Browse files Browse the repository at this point in the history
  • Loading branch information
@FerreiraAS
FerreiraAS committed Sep 24, 2024
1 parent 1d4f9e6 commit a36460f
Show file tree
Hide file tree
Showing 8 changed files with 23 additions and 34 deletions.
Binary file modified PPG/Images/Cover-1.pdf
View file
Binary file not shown.
Binary file modified PPG/Images/Cover-2.pdf
View file
Binary file not shown.
51 changes: 20 additions & 31 deletions autoavaliacao.Rmd
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2501,21 +2501,19 @@ sucupira$'Data de Desligamento' <-
sucupira$'Data de Desligamento'[is.na(sucupira$'Data de Desligamento')] <-
"Atual"
docentes <-
sucupira[!duplicated(sucupira[, match("Nome Docente", colnames(sucupira)):match("Categoria", colnames(sucupira))]),]
docentes <- docentes[order(docentes$"Nome Docente"), ]
docentes <- docentes.quadrienio
table.doc <-
data.frame(matrix(
NA,
nrow = dim(docentes)[1],
nrow = length(docentes),
ncol = length(quadrienal.vigente)
))
rownames(table.doc) <- NULL
table.doc <- cbind(docentes$`Nome Docente`, table.doc)
table.doc <- cbind(docentes, table.doc)
colnames(table.doc) <-
c("Nome Docente", as.character(quadrienal.vigente))
for (i in 1:dim(docentes)[1]) {
for (i in 1:length(docentes)) {
for (j in 1:length(quadrienal.vigente)) {
sucupira.temp <-
sucupira.list[as.character(quadrienal.vigente[j])][[1]]
Expand All @@ -2524,7 +2522,7 @@ for (i in 1:dim(docentes)[1]) {
sucupira.temp <- sucupira.temp[sucupira.temp$Categoria == "PERMANENTE", ]
table.doc[i, j + 1] <-
try(sucupira.temp$'Categoria'[match(table.doc$`Nome Docente`[i], sucupira.temp$`Nome Docente`)]
try(sucupira.temp$Categoria[match(toupper(table.doc$`Nome Docente`[i]), sucupira.temp$`Nome Docente`)]
, silent = TRUE)
}
}
Expand Down Expand Up @@ -2605,21 +2603,19 @@ sucupira$'Data de Desligamento' <-
sucupira$'Data de Desligamento'[is.na(sucupira$'Data de Desligamento')] <-
"Atual"
docentes <-
sucupira[!duplicated(sucupira[, match("Nome Docente", colnames(sucupira)):match("Carga Horária PG (Semanal)", colnames(sucupira))]),]
docentes <- docentes[order(docentes$"Nome Docente"), ]
docentes <- docentes.quadrienio
table.doc <-
data.frame(matrix(
NA,
nrow = dim(docentes)[1],
nrow = length(docentes),
ncol = length(quadrienal.vigente)
))
rownames(table.doc) <- NULL
table.doc <- cbind(docentes$`Nome Docente`, table.doc)
table.doc <- cbind(docentes, table.doc)
colnames(table.doc) <-
c("Nome Docente", as.character(quadrienal.vigente))
for (i in 1:dim(docentes)[1]) {
for (i in 1:length(docentes)) {
for (j in 1:length(quadrienal.vigente)) {
sucupira.temp <-
sucupira.list[as.character(quadrienal.vigente[j])][[1]]
Expand All @@ -2628,11 +2624,10 @@ for (i in 1:dim(docentes)[1]) {
sucupira.temp <- sucupira.temp[sucupira.temp$Categoria == "PERMANENTE", ]
table.doc[i, j + 1] <-
try(sucupira.temp$'Tipo vínculo'[match(table.doc$`Nome Docente`[i], sucupira.temp$`Nome Docente`)]
try(sucupira.temp$'Tipo vínculo'[match(toupper(table.doc$`Nome Docente`[i]), sucupira.temp$`Nome Docente`)]
, silent = TRUE)
}
}
table.doc.2 <- table.doc
table.doc.long <-
tidyr::gather(table.doc[, -1],
Expand Down Expand Up @@ -2707,21 +2702,19 @@ sucupira$'Data de Desligamento' <-
sucupira$'Data de Desligamento'[is.na(sucupira$'Data de Desligamento')] <-
"Atual"
docentes <-
sucupira[!duplicated(sucupira[, match("Nome Docente", colnames(sucupira)):match("Carga Horária PG (Semanal)", colnames(sucupira))]),]
docentes <- docentes[order(docentes$"Nome Docente"), ]
docentes <- docentes.quadrienio
table.doc <-
data.frame(matrix(
NA,
nrow = dim(docentes)[1],
nrow = length(docentes),
ncol = length(quadrienal.vigente)
))
rownames(table.doc) <- NULL
table.doc <- cbind(docentes$`Nome Docente`, table.doc)
table.doc <- cbind(docentes, table.doc)
colnames(table.doc) <-
c("Nome Docente", as.character(quadrienal.vigente))
for (i in 1:dim(docentes)[1]) {
for (i in 1:length(docentes)) {
for (j in 1:length(quadrienal.vigente)) {
sucupira.temp <-
sucupira.list[as.character(quadrienal.vigente[j])][[1]]
Expand All @@ -2730,11 +2723,10 @@ for (i in 1:dim(docentes)[1]) {
sucupira.temp <- sucupira.temp[sucupira.temp$Categoria == "PERMANENTE", ]
table.doc[i, j + 1] <-
try(sucupira.temp$'Regime de Trabalho'[match(table.doc$`Nome Docente`[i], sucupira.temp$`Nome Docente`)]
try(sucupira.temp$`Regime de Trabalho`[match(toupper(table.doc$`Nome Docente`[i]), sucupira.temp$`Nome Docente`)]
, silent = TRUE)
}
}
table.doc.3 <- table.doc
table.doc.long <-
tidyr::gather(table.doc[, -1],
Expand Down Expand Up @@ -2814,21 +2806,19 @@ sucupira$'Data de Desligamento' <-
sucupira$'Data de Desligamento'[is.na(sucupira$'Data de Desligamento')] <-
"Atual"
docentes <-
sucupira[!duplicated(sucupira[, match("Nome Docente", colnames(sucupira)):match("Carga Horária PG (Semanal)", colnames(sucupira))]),]
docentes <- docentes[order(docentes$"Nome Docente"), ]
docentes <- docentes.quadrienio
table.doc <-
data.frame(matrix(
NA,
nrow = dim(docentes)[1],
nrow = length(docentes),
ncol = length(quadrienal.vigente)
))
rownames(table.doc) <- NULL
table.doc <- cbind(docentes$`Nome Docente`, table.doc)
table.doc <- cbind(docentes, table.doc)
colnames(table.doc) <-
c("Nome Docente", as.character(quadrienal.vigente))
for (i in 1:dim(docentes)[1]) {
for (i in 1:length(docentes)) {
for (j in 1:length(quadrienal.vigente)) {
sucupira.temp <-
sucupira.list[as.character(quadrienal.vigente[j])][[1]]
Expand All @@ -2837,11 +2827,10 @@ for (i in 1:dim(docentes)[1]) {
sucupira.temp <- sucupira.temp[sucupira.temp$Categoria == "PERMANENTE", ]
table.doc[i, j + 1] <-
try(sucupira.temp$"Carga Horária PG (Semanal)"[match(table.doc$`Nome Docente`[i], sucupira.temp$`Nome Docente`)]
try(sucupira.temp$`Carga Horária PG (Semanal)`[match(toupper(table.doc$`Nome Docente`[i]), sucupira.temp$`Nome Docente`)]
, silent = TRUE)
}
}
table.doc.4 <- table.doc
table.doc.long <- tidyr::gather(table.doc[, -1], "Ano", "Carga Horária PG (Semanal)", colnames(table.doc)[-1], factor_key=TRUE)
Expand Down
4 changes: 2 additions & 2 deletions autoavaliacao.log
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
This is XeTeX, Version 3.141592653-2.6-0.999996 (TeX Live 2024) (preloaded format=xelatex 2024.9.22) 23 SEP 2024 22:24
This is XeTeX, Version 3.141592653-2.6-0.999996 (TeX Live 2024) (preloaded format=xelatex 2024.9.22) 24 SEP 2024 05:41
entering extended mode
restricted \write18 enabled.
%&-line parsing enabled.
Expand Down Expand Up @@ -1562,7 +1562,7 @@ L3 programming layer <2024-08-30>
Here is how much of TeX's memory you used:
39675 strings out of 474235
783034 string characters out of 5742253
1372826 words of memory out of 5000000
1372825 words of memory out of 5000000
61747 multiletter control sequences out of 15000+600000
561728 words of font info for 71 fonts, out of 8000000 for 9000
1348 hyphenation exceptions out of 8191
Expand Down
2 changes: 1 addition & 1 deletion docs/1_inicio.html
View file
Original file line number Diff line number Diff line change
Expand Up @@ -871,7 +871,7 @@ <h2><strong>Session info</strong></h2>
collate en_US.UTF-8
ctype en_US.UTF-8
tz America/Sao_Paulo
date 2024-09-23
date 2024-09-24
pandoc 3.1.11 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/x86_64/ (via rmarkdown)

─ Packages ─────────────────────────────────────────────────────────────
Expand Down
Binary file modified docs/PPG/Images/Cover-1.pdf
View file
Binary file not shown.
Binary file modified docs/PPG/Images/Cover-2.pdf
View file
Binary file not shown.
Binary file modified docs/autoavaliacao.pdf
View file
Binary file not shown.

0 comments on commit a36460f

Please sign in to comment.