Commit 59ce5d90 authored by numeroteca's avatar numeroteca
Browse files

fix: dates in charts subtitles

parent e2e9f203
......@@ -337,9 +337,9 @@ server <- function(input, output) {
labs(title = paste0("Cuándo hablan de '",search_word(), "' en los telediarios"),
subtitle = paste0(subtitle_text,
"Periodo: ",
substr( min(mydata()$date),1,10),
substr( dateinit(),1,10),
" - ",
substr( max(mydata()$date),1,10),
substr( datefinish(),1,10),
"."
),
x = "",
......@@ -404,9 +404,9 @@ server <- function(input, output) {
labs(title = paste0("Cuándo hablan de '",search_word(), "' en los telediarios"),
subtitle = paste0(subtitle_text,
"Periodo: ",
substr( min(mydata()$date),1,10),
substr( dateinit(),1,10),
" - ",
substr( max(mydata()$date),1,10),
substr( datefinish(),1,10),
"."
),
x = "",
......@@ -428,9 +428,9 @@ server <- function(input, output) {
'<sup>',
subtitle_text,
'Periodo: ',
substr( min(mydata()$date),1,10),
substr( dateinit(),1,10),
' - ',
substr( max(mydata()$date),1,10),
substr( datefinish(),1,10),
'.','</sup>'))
, annotations =
list(x = 1, y = -0.11, text = "Gráfico: numeroteca (<a style='color:grey;' href='https://montera34.com'>montera34.com</a>). Datos: RTVE a través de <a style='color:grey;'href='https://verba.civio.es (Civio)'>verba.civio.es (Civio)</a>",
......@@ -480,9 +480,9 @@ server <- function(input, output) {
labs(title = paste0("Cuánto hablan de '",search_word(), "' en los telediarios"),
subtitle = paste0(subtitle_text,
"Periodo: ",
substr( min(mydata()$date),1,10),
substr( dateinit(),1,10),
" - ",
substr( max(mydata()$date),1,10),
substr( datefinish() ,1,10),
"."
),
x = "",
......
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