@@ -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"),
