In rOpenStats/CYTAR: Analytics over Sistema Ciencia y Tecnología de Argentina

knitr::opts_chunk$set(
  collapse = TRUE,
  dpi=200,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

CYTAR

A package for analysing Argentina's Science and technology system (CYT)

Package

How to get started (Development version)

Install the R package using the following commands on the R console:

# install.packages("devtools")
devtools::install()

How to use it

First add variable with your preferred configurations in ~/.Renviron.

CYTAR_data_dir = "~/.R/CYTAR/"

library(CYTAR)
library(ggplot2)
library(lgr)

CYTAR analytics over people and researchs

opendata From Ministerio de Ciencia de la Nación Argentina

log.dir <- file.path(getEnv("data_dir"), "logs")
dir.create(log.dir, recursive = TRUE, showWarnings = FALSE)
log.file <- file.path(log.dir, "cytar.log")
lgr::get_logger("root")$add_appender(AppenderFile$new(log.file))
lgr::threshold("info", lgr::get_logger("root"))
lgr::threshold("info", lgr::get_logger("CYTARPersonal"))


personas <- CYTARPersonas$new()
self <- personas
personas$loadData()
nrow(personas$data)


personas.2018 <- CYTARPersonas2018$new()
self <- personas.2018
personas.2018$loadData()
nrow(personas.2018$data)
personas.2018$consolidate()
nrow(personas.2018$consolidated)
names(personas.2018$consolidated)

library(dplyr)
library(readr)

producciones <- CYTARProducciones$new()
self <- producciones
producciones$configAll()
producciones$loadAll()
names(producciones$producciones.years)

personas.selected <- personas$data %>% filter(grepl("kornblihtt", apellido, ignore.case = TRUE))
personas.selected
producciones.personas <- producciones$getProduccionesPersonas(personas.df = personas.selected)

write_csv(producciones.personas, file = file.path(getDataDir(), "producciones_kornblihtt.csv"))

producciones.personas %>%
 group_by(persona_id, nombre, apellido, edad) %>%
 summarize( min_anio = min(anio_publica, na.rm = TRUE),
            max_anio = max(anio_publica, na.rm = TRUE),
            n        = n()
            )