Put the package on the style

R/lattes_bibliografia.R

@@ -3,7 +3,6 @@ lattes_bibliografia <- function(curriculo,
                                 pontuacao = NULL,
                                 maximo = NULL,
                                 ultimos_anos = 5) {
-
   ano_inicial <- ano_inicial(ultimos_anos)
   pontuacao_bibliografia <- criar_pontuacao_bibliografia(pontuacao)
 
@@ -27,7 +26,7 @@ lattes_bibliografia <- function(curriculo,
 }
 
 criar_pontuacao_bibliografia <- function(pontuacao) {
-  if(is.null(pontuacao)) {
+  if (is.null(pontuacao)) {
     pontuacao_bibliografia <- data.frame(
       item = c(
         "A1", "A2", "B1", "B2", "B3", "B4", "B5", "C", "SEM_QUALIS",
@@ -39,7 +38,7 @@ criar_pontuacao_bibliografia <- function(pontuacao) {
         5, 4, 2.5,
         1.5, 0.5
       )
-  )
+    )
   } else {
     pontuacao_bibliografia <- pontuacao
   }
@@ -85,7 +84,7 @@ ler_periodicos <- function(x) {
     issn = xml2::xml_attr(periodicos_detalhes, "ISSN")
   )
 
- classificar_qualis(periodicos_tabela)
+  classificar_qualis(periodicos_tabela)
 }
 
 classificar_qualis <- function(periodicos) {
@@ -123,8 +122,9 @@ ler_livro <- function(x) {
     natureza = xml2::xml_attr(livro, "TIPO"),
     ano = xml2::xml_attr(livro, "ANO")
   ) %>%
-  dplyr::mutate(natureza = dplyr::if_else(
-      natureza == "LIVRO_ORGANIZADO_OU_EDICAO", "LIVRO_ORGANIZADO", natureza))
+    dplyr::mutate(natureza = dplyr::if_else(
+      natureza == "LIVRO_ORGANIZADO_OU_EDICAO", "LIVRO_ORGANIZADO", natureza
+    ))
 
   xpath <- "//CAPITULO-DE-LIVRO-PUBLICADO/DADOS-BASICOS-DO-CAPITULO"
   capitulo <- xml2::xml_find_all(x, xpath)
@@ -136,13 +136,12 @@ ler_livro <- function(x) {
     natureza = xml2::xml_attr(capitulo, "TIPO"),
     ano = xml2::xml_attr(capitulo, "ANO")
   ) %>%
-  dplyr::mutate(natureza = "LIVRO_CAPITULO")
+    dplyr::mutate(natureza = "LIVRO_CAPITULO")
 
   rbind(livro, capitulo)
 }
 
 filtrar_livros <- function(x, ano_inicial) {
-
   livro_deferido <- dplyr::filter(x, ano >= ano_inicial)
   livro_indeferido <- dplyr::filter(x, ano < ano_inicial)
   capitulo_deferido <- dplyr::filter(x, ano >= ano_inicial)
@@ -156,15 +155,16 @@ filtrar_livros <- function(x, ano_inicial) {
 
 score_bibliografia <- function(periodicos, congressos,
                                livros, pontuacao_bibliografia) {
-
   periodicos_deferidos <- periodicos$deferidos %>%
     dplyr::group_by(estrato) %>%
     dplyr::tally(name = "quantidade") %>%
     dplyr::mutate(quantidade_max = "-") %>%
     dplyr::left_join(pontuacao_bibliografia, by = c("estrato" = "item")) %>%
     dplyr::rename(item = estrato) %>%
-    dplyr::mutate(item = paste0("PERIODICO_", item),
-                  total = quantidade * pontuacao)
+    dplyr::mutate(
+      item = paste0("PERIODICO_", item),
+      total = quantidade * pontuacao
+    )
 
   congressos_deferidos <- congressos$deferidos %>%
     dplyr::group_by(natureza) %>%
@@ -191,4 +191,3 @@ score_bibliografia <- function(periodicos, congressos,
     livros_deferidos
   )
 }
-

R/lattes_orientacoes.R

@@ -3,7 +3,6 @@ lattes_orientacoes <- function(curriculo,
                                pontuacao = NULL,
                                maximo = NULL,
                                ultimos_anos = 5) {
-
   ano_inicial <- ano_inicial(ultimos_anos)
   pontuacao_orientacoes <- criar_pontuacao_orientacoes(pontuacao)
 
@@ -14,22 +13,20 @@ lattes_orientacoes <- function(curriculo,
   ) %>%
     filtrar_orientacoes(ano_inicial)
 
-    score_orientacoes(orientacoes$deferidos, pontuacao_orientacoes)
-
-
-
+  score_orientacoes(orientacoes$deferidos, pontuacao_orientacoes)
 }
 
 ler_orientacao_doutorado <- function(x) {
-
-  doutorado_completo <- extrair_xml_dados_basicos_e_detalhes(x,
+  doutorado_completo <- extrair_xml_dados_basicos_e_detalhes(
+    x,
     "//ORIENTACOES-CONCLUIDAS-PARA-DOUTORADO/DADOS-BASICOS-DE-ORIENTACOES-CONCLUIDAS-PARA-DOUTORADO",
     "//ORIENTACOES-CONCLUIDAS-PARA-DOUTORADO/DETALHAMENTO-DE-ORIENTACOES-CONCLUIDAS-PARA-DOUTORADO"
   ) %>%
     ler_orientacao() %>%
     dplyr::mutate(natureza = paste0("DOUTORADO_COMPLETO_", orientacao))
 
-  doutorado_em_andamento <- extrair_xml_dados_basicos_e_detalhes(x,
+  doutorado_em_andamento <- extrair_xml_dados_basicos_e_detalhes(
+    x,
     "//ORIENTACAO-EM-ANDAMENTO-DE-DOUTORADO/DADOS-BASICOS-DA-ORIENTACAO-EM-ANDAMENTO-DE-DOUTORADO",
     "//ORIENTACAO-EM-ANDAMENTO-DE-DOUTORADO/DETALHAMENTO-DA-ORIENTACAO-EM-ANDAMENTO-DE-DOUTORADO"
   ) %>%
@@ -40,15 +37,16 @@ ler_orientacao_doutorado <- function(x) {
 }
 
 ler_orientacao_mestrado <- function(x) {
-
-  mestrado_completo <- extrair_xml_dados_basicos_e_detalhes(x,
+  mestrado_completo <- extrair_xml_dados_basicos_e_detalhes(
+    x,
     "//ORIENTACOES-CONCLUIDAS-PARA-MESTRADO/DADOS-BASICOS-DE-ORIENTACOES-CONCLUIDAS-PARA-MESTRADO",
     "//ORIENTACOES-CONCLUIDAS-PARA-MESTRADO/DETALHAMENTO-DE-ORIENTACOES-CONCLUIDAS-PARA-MESTRADO"
   ) %>%
     ler_orientacao() %>%
     dplyr::mutate(natureza = paste0("MESTRADO_COMPLETO_", orientacao))
 
-  mestrado_em_andamento <- extrair_xml_dados_basicos_e_detalhes(x,
+  mestrado_em_andamento <- extrair_xml_dados_basicos_e_detalhes(
+    x,
     "//ORIENTACAO-EM-ANDAMENTO-DE-MESTRADO/DADOS-BASICOS-DA-ORIENTACAO-EM-ANDAMENTO-DE-MESTRADO",
     "//ORIENTACAO-EM-ANDAMENTO-DE-MESTRADO/DETALHAMENTO-DA-ORIENTACAO-EM-ANDAMENTO-DE-MESTRADO"
   ) %>%
@@ -60,7 +58,8 @@ ler_orientacao_mestrado <- function(x) {
 
 
 ler_outras_orientacoes <- function(x) {
-  orientacoes_xml <-xml2::xml_find_all(x,
+  orientacoes_xml <- xml2::xml_find_all(
+    x,
     "//OUTRAS-ORIENTACOES-CONCLUIDAS/DADOS-BASICOS-DE-OUTRAS-ORIENTACOES-CONCLUIDAS"
   )
 
@@ -71,16 +70,17 @@ ler_outras_orientacoes <- function(x) {
   ) %>%
     dplyr::mutate(
       natureza = dplyr::if_else(natureza == "INICIACAO_CIENTIFICA",
-        "INICIACAO_CIENTIFICA_COMPLETA", natureza),
+        "INICIACAO_CIENTIFICA_COMPLETA", natureza
+      ),
       orientacao = "ORIENTADOR" # existe um bug no lattes todo mundo fica como co-orientador
-      ) %>%
+    ) %>%
     dplyr::mutate(natureza = paste0(
       natureza, "_", orientacao
     ))
 }
 
 criar_pontuacao_orientacoes <- function(pontuacao) {
-  if(is.null(pontuacao)) {
+  if (is.null(pontuacao)) {
     pontuacao_orientacoes <- data.frame(
       item = c(
         "DOUTORADO_COMPLETO_ORIENTADOR", "DOUTORADO_EM_ANDAMENTO_ORIENTADOR",

R/lattes_titulacao.R

@@ -1,12 +1,12 @@
 #' @importFrom dplyr %>%
 #' @export
 lattes_titulacao <- function(x, pontuacao = NULL) {
-
   if (is.null(pontuacao)) {
     titulacao <- data.frame(
       item = c("GRADUACAO", "ESPECIALIZACAO", "MESTRADO", "DOUTORADO"),
       pontuacao = c(2, 4, 7, 10)
-    )} else {
+    )
+  } else {
     titulacao <- pontuacao
   }
 
@@ -24,5 +24,3 @@ lattes_titulacao <- function(x, pontuacao = NULL) {
     dplyr::mutate(total = pontuacao * quantidade) %>%
     dplyr::select(item, quantidade, quantidade_max, pontuacao, total)
 }
-
-

R/lattes_utils.R

@@ -5,19 +5,21 @@ ano_inicial <- function(ultimos_anos) {
 #' @export
 read_qualis <- function() {
   utils::read.csv(system.file(
-    "lattes/qualis_2010_2016.csv", package = "ifpe.apps"
+    "lattes/qualis_2010_2016.csv",
+    package = "ifpe.apps"
   ))
 }
 
 #' @export
 read_sjr <- function() {
   utils::read.csv(system.file(
-    "lattes/scimagojr_1999_2019.csv", package = "ifpe.apps"
+    "lattes/scimagojr_1999_2019.csv",
+    package = "ifpe.apps"
   )) %>%
     dplyr::mutate(
       SJR = as.numeric(sub(",", ".", SJR)),
       ISSN = stringr::str_trim(ISSN)
-  )
+    )
 }
 
 #' @export
@@ -46,7 +48,7 @@ ler_orientacao <- function(x) {
   ) %>%
     dplyr::mutate(orientacao = dplyr::if_else(
       orientacao == "ORIENTADOR_PRINCIPAL", "ORIENTADOR", "COORIENTADOR"
-  ))
+    ))
 }
 
 atributo_existe <- function(x, attr) {
@@ -60,4 +62,3 @@ verificar_atributo_titulo <- function(x) {
     "TITULO-DO-TRABALHO"
   }
 }
-

R/sculb_server.R

@@ -1,7 +1,6 @@
 #' @export
 sculb_server <- function() {
-
-function(input, output, session) {
+  function(input, output, session) {
     output$lattes_output <- renderText({
       if (is.null(input$lattes)) {
         "Por favor insira os curriculos lattes"

R/sculb_ui.R

@@ -24,6 +24,3 @@ sculb_lattes_input <- function() {
     accept = c("zip")
   )
 }
-
-
-