Actualización

agusnieto77 · Jul 5, 2022 · bf34fbd · bf34fbd
1 parent 2eeac0a
commit bf34fbd
Show file tree

Hide file tree

Showing 20 changed files with 30 additions and 38 deletions.
diff --git a/R/acep_db.R b/R/acep_db.R
@@ -7,7 +7,7 @@
 #' @keywords indicadores
 #' @export acep_db
 #' @examples
-#' rev_puerto <- acep_load_base('rp_mdp')
+#' rev_puerto <- acep_bases$rev_puerto
 #' dicc_viol_gp <- acep_diccionarios$dicc_viol_gp
 #' rpp <- acep_db(rev_puerto, rev_puerto$nota, dicc_viol_gp, 4)
 #' rpp |> head()

diff --git a/R/acep_frec.R b/R/acep_frec.R
@@ -4,7 +4,7 @@
 #' @keywords indicadores
 #' @export acep_frec
 #' @examples
-#' rev_puerto <- acep_load_base('rp_mdp')
+#' rev_puerto <- rev_puerto <- acep_bases$rev_puerto
 #' rev_puerto$n_palabras <- acep_frec(rev_puerto$nota)
 #' rev_puerto |> head()
 

diff --git a/R/acep_int.R b/R/acep_int.R
@@ -6,7 +6,7 @@
 #' @export acep_int
 #' @keywords indicadores
 #' @examples
-#' rev_puerto <- acep_load_base('rp_mdp')
+#' rev_puerto <- acep_bases$rev_puerto
 #' dicc_violencia <- acep_diccionarios$dicc_viol_gp
 #' rev_puerto$n_palabras <- acep_frec(rev_puerto$nota)
 #' rev_puerto$conflictos <- acep_men(rev_puerto$nota, dicc_violencia)

diff --git a/R/acep_load_base.R b/R/acep_load_base.R
@@ -4,8 +4,11 @@
 #' @keywords datos
 #' @export acep_load_base
 #' @examples
-#' acep_load_base('rp_mdp') |> head()
+#' \dontrun{acep_load_base('rp_mdp') |> head()}
 
 acep_load_base <- function(tag){
   return(readRDS(url(paste0("https://zenodo.org/record/6795998/files/", tag,".rds"),"rb")))
-}
+  }
+
+
+
diff --git a/R/acep_men.R b/R/acep_men.R
@@ -6,7 +6,7 @@
 #' @export acep_men
 #' @keywords indicadores
 #' @examples
-#' rev_puerto <- acep_load_base('rp_mdp')
+#' rev_puerto <- acep_bases$rev_puerto
 #' dicc_violencia <- acep_diccionarios$dicc_viol_gp
 #' rev_puerto$conflictos <- acep_men(rev_puerto$nota, dicc_violencia)
 #' rev_puerto |> head()

diff --git a/R/acep_plot_st.R b/R/acep_plot_st.R
@@ -10,9 +10,7 @@
 #' @importFrom graphics title barplot
 #' @keywords visualización
 #' @examples
-#' rev_puerto <- acep_bases$rev_puerto
-#' dicc_violencia <- acep_diccionarios$dicc_viol_gp
-#' datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
+#' datos <- acep_bases$rp_procesada
 #' fecha <- datos$fecha
 #' n_palabras <- datos$n_palabras
 #' conflictos <- datos$conflictos

diff --git a/README.md b/README.md
@@ -23,6 +23,7 @@ devtools::install_github("agusnieto77/ACEP")
 |`acep_db()`	|Frecuencia, menciones e intensidad.|
 |`acep_frec()`|Frecuencia de palabras totales.|
 |`acep_int()`|Índice de intensidad.|
+|`acep_load_base()`|Carga bases de datos creadas por el Observatorio.|
 |`acep_men()`|Frecuencia de menciones de palabras.|
 |`acep_post_rst()`|Resumen visual de la serie temporal de los índices de conflictividad.|
 |`acep_post_st()`|Gráfico de barras de la serie temporal de índices de conflictividad.|
@@ -43,7 +44,7 @@ devtools::install_github("agusnieto77/ACEP")
 require(ACEP)
 
 # Cargamos la base de notas de la Revista Puerto
-rev_puerto <- acep_bases$rev_puerto
+rev_puerto <- acep_load_base('rp_mdp')
 
 # Con la función acep_frec() contamos la frecuencia de palabras de cada nota y creamos una
 # nueva columna llamada  n_palabras

diff --git a/man/acep_db.Rd b/man/acep_db.Rd
diff --git a/man/acep_frec.Rd b/man/acep_frec.Rd
diff --git a/man/acep_int.Rd b/man/acep_int.Rd
diff --git a/man/acep_load_base.Rd b/man/acep_load_base.Rd
diff --git a/man/acep_men.Rd b/man/acep_men.Rd
diff --git a/man/acep_plot_st.Rd b/man/acep_plot_st.Rd
diff --git a/tests/testthat/test-acep_db.R b/tests/testthat/test-acep_db.R
@@ -3,8 +3,8 @@ context("test-acep_db")
 test_that("ACEP DB", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
-  rp_procesada <- acep_db(acep_bases$rev_puerto, acep_bases$rev_puerto$nota, acep_diccionarios$dicc_viol_gp, 4)
+  rev_puerto <- acep_load_base('rp_mdp')
+  rp_procesada <- acep_db(rev_puerto, rev_puerto$nota, acep_diccionarios$dicc_viol_gp, 4)
   dimensiones <- length(rev_puerto$nota)
-  expect_equal(dimensiones, length(acep_bases$rev_puerto$fecha))
+  expect_equal(dimensiones, length(rev_puerto$fecha))
 })
diff --git a/tests/testthat/test-acep_frec.R b/tests/testthat/test-acep_frec.R
@@ -3,7 +3,7 @@ context("test-acep_frec")
 test_that("ACEP Frec", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
+  rev_puerto <- acep_load_base('rp_mdp')
   rev_puerto$n_palabras <- acep_frec(rev_puerto$nota)
   dimensiones <- length(rev_puerto$nota)
   expect_equal(dimensiones, length(rev_puerto$n_palabras))

diff --git a/tests/testthat/test-acep_int.R b/tests/testthat/test-acep_int.R
@@ -3,7 +3,7 @@ context("test-acep_int")
 test_that("ACEP INT", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
+  rev_puerto <- acep_load_base('rp_mdp')
   dicc_violencia <- acep_diccionarios$dicc_viol_gp
   rev_puerto$n_palabras <- acep_frec(rev_puerto$nota)
   rev_puerto$conflictos <- acep_men(rev_puerto$nota, dicc_violencia)

diff --git a/tests/testthat/test-acep_men.R b/tests/testthat/test-acep_men.R
@@ -3,7 +3,7 @@ context("test-acep_men")
 test_that("ACEP Men Tolower T", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
+  rev_puerto <- acep_load_base('rp_mdp')
   dicc_violencia <- acep_diccionarios$dicc_viol_gp
   rev_puerto$conflictos <- acep_men(rev_puerto$nota, dicc_violencia)
   dimensiones <- length(rev_puerto$nota)
@@ -13,7 +13,7 @@ test_that("ACEP Men Tolower T", {
 test_that("ACEP Men Tolower F", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
+  rev_puerto <- acep_load_base('rp_mdp')
   dicc_violencia <- acep_diccionarios$dicc_viol_gp
   rev_puerto$conflictos <- acep_men(rev_puerto$nota, dicc_violencia, tolower = FALSE)
   dimensiones <- length(rev_puerto$nota)

diff --git a/tests/testthat/test-acep_plot_rst.R b/tests/testthat/test-acep_plot_rst.R
@@ -3,9 +3,7 @@ context("test-acep_plot_rst")
 test_that("ACEP Plot RST", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
-  dicc_violencia <- acep_diccionarios$dicc_viol_gp
-  datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
+  datos <- acep_bases$rp_procesada
   datos_procesados_anio <- acep_rst(datos, datos$fecha, datos$n_palabras, datos$conflictos, st = 'anio')
   prst <- acep_plot_rst(datos_procesados_anio, tagx = 'vertical')
   dimensiones <- length(prst)

diff --git a/tests/testthat/test-acep_plot_st.R b/tests/testthat/test-acep_plot_st.R
@@ -3,7 +3,7 @@ context("test-acep_plot_st")
 test_that("ACEP Plot ST", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
+  rev_puerto <- acep_load_base('rp_mdp')
   dicc_violencia <- acep_diccionarios$dicc_viol_gp
   datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
   datos_procesados_anio <- acep_rst(datos, datos$fecha, datos$n_palabras, datos$conflictos, st = 'anio')

diff --git a/tests/testthat/test-acep_rst.R b/tests/testthat/test-acep_rst.R
@@ -3,9 +3,7 @@ context("test-acep_rst")
 test_that("ACEP RST ANIO", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
-  dicc_violencia <- acep_diccionarios$dicc_viol_gp
-  datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
+  datos <- acep_bases$rp_procesada
   datos_procesados_anio <- acep_rst(datos, datos$fecha, datos$n_palabras, datos$conflictos, st = 'anio', u = 4)
   dimensiones <- length(datos_procesados_anio$st)
   expect_equal(dimensiones, 12)
@@ -14,9 +12,7 @@ test_that("ACEP RST ANIO", {
 test_that("ACEP RST DIA", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
-  dicc_violencia <- acep_diccionarios$dicc_viol_gp
-  datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
+  datos <- acep_bases$rp_procesada
   datos_procesados_dia <- acep_rst(datos, datos$fecha, datos$n_palabras, datos$conflictos, st = 'dia')
   dimensiones <- length(datos_procesados_dia$st)
   expect_equal(dimensiones, 2895)
@@ -25,9 +21,7 @@ test_that("ACEP RST DIA", {
 test_that("ACEP RST MES", {
   skip_if_offline()
   skip_on_cran()
-  rev_puerto <- acep_bases$rev_puerto
-  dicc_violencia <- acep_diccionarios$dicc_viol_gp
-  datos <- acep_db(rev_puerto, rev_puerto$nota, dicc_violencia, 4)
+  datos <- acep_bases$rp_procesada
   datos_procesados_mes <- acep_rst(datos, datos$fecha, datos$n_palabras, datos$conflictos, st = 'mes')
   dimensiones <- length(datos_procesados_mes$st)
   expect_equal(dimensiones, 142)