Commit 2809a65f authored by numeroteca's avatar numeroteca
Browse files

reduce number of request results to Verba API

parent 59ce5d90
......@@ -118,7 +118,7 @@ ui <- fluidPage(
p("Los telediarios de las 8h no se muestran.\n
Los telediarios de las 14h y 16h se muestran como 15h.\n
Los telediarios de las 20 y 22h se muestran como 21h."),
p("No es posible hacer búsquedas con muchos resultados, existe un límite en la petición de datos a Verba. Restringe los límites temporales de la búsqueda. Actualmente 10.000 resultados máximo."),
tags$a(href="https://verba.civio.es/", "Con datos de Verba de Civio."),
tags$a(href="https://numeroteca.org", "Desarrollado por numeroteca."),
tags$a(href="https://code.montera34.com/numeroteca/verbar/", "Código disponible"),
......@@ -173,7 +173,8 @@ server <- function(input, output) {
str_replace_all("ú","%C3%BA") %>%
str_replace_all("ü","%C3%BC") %>%
str_replace_all("ñ","%C3%B1")
paste0("https://verba.civio.es/api/search.csv?q=", search_clean,"&size=20000")
# TODO: change the size limit to a higher number if posible
paste0("https://verba.civio.es/api/search.csv?q=", search_clean,"&size=10000")
})
# search input
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment