arreglo de typos y textos

MOVID19 · Aug 18, 2020 · ba4c40e · ba4c40e
1 parent 49068c1
commit ba4c40e
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 14 deletions.
diff --git a/global.R b/global.R
@@ -94,10 +94,10 @@ options(
         style = list(fontFamily = "Roboto")
       ),
       title = list(
-        style = list(fontFamily = "Source Sans Pro")
+        style = list(fontFamily = "Source Sans Pro", fontWeight  = "normal")
       ),
       subtitle = list(
-        style = list(fontFamily = "Roboto", fontSize = "12px")
+        style = list(fontFamily = "Roboto", fontSize = "12px", fontWeight  = "normal")
       ),
       # colors = ggsci::pal_jama()(7)[-1],
       colors = c("#093C66",

diff --git a/server.R b/server.R
@@ -361,9 +361,9 @@ shinyServer(function(input, output, session) {
       hc_tooltip(table = TRUE, sort = TRUE) %>%
       hc_xAxis(title = list(text = "")) %>%
       hc_yAxis(title = list(text = ""), labels = list(format = "{value}%"), min = 0) %>% 
-      hc_subtitle(text = "Se ha realizado uno o mas exámenes de enfermedad 
-                  COVID19, alguna vez para primera observación, en la última 
-                  semana para observaciones de seguimiento.")
+      hc_subtitle(text = "Se ha realizado uno o más exámenes de enfermedad COVID19 
+                  (alguna vez para primeras observaciones o en la última semana 
+                  para observaciones de seguimiento).")
 
   })
 
@@ -414,7 +414,7 @@ shinyServer(function(input, output, session) {
       hc_xAxis(title = list(text = "")) %>%
       hc_yAxis(title = list(text = ""), labels = list(format = "{value}"), min = 0) %>% 
       hc_subtitle(text = "Promedio de días de espera entre inicio de síntomas y 
-                  consulta al médico.")
+                  consulta al médico (casos que reportan presencia de síntomas).")
 
   })
 
@@ -479,7 +479,7 @@ shinyServer(function(input, output, session) {
     d <- dssd %>%
       group_by(semana_fecha, tipo) %>% 
       summarise(
-        proporcion = mean(variable, na.rm = TRUE),
+        proporcion = mean(100 * variable, na.rm = TRUE),
         .groups = "drop"
       )
 
@@ -491,8 +491,8 @@ shinyServer(function(input, output, session) {
     ) %>%
       hc_tooltip(table = TRUE, sort = TRUE) %>%
       hc_xAxis(title = list(text = "")) %>%
-      hc_yAxis(title = list(text = ""), labels = list(format = "{value}"), min = 0) %>% 
-      hc_title(text = "Rzones para no consultar profesional")
+      hc_yAxis(title = list(text = ""), labels = list(format = "{value}%"), min = 0) %>% 
+      hc_title(text = "Razones para no consultar profesional")
 
   })
 
@@ -507,7 +507,7 @@ shinyServer(function(input, output, session) {
     d <- dssd %>%
       group_by(semana_fecha, tipo) %>% 
       summarise(
-        proporcion = mean(variable, na.rm = TRUE),
+        proporcion = mean(100 * variable, na.rm = TRUE),
         .groups = "drop"
       )
 
@@ -519,8 +519,8 @@ shinyServer(function(input, output, session) {
     ) %>%
       hc_tooltip(table = TRUE, sort = TRUE) %>%
       hc_xAxis(title = list(text = "")) %>%
-      hc_yAxis(title = list(text = ""), labels = list(format = "{value}"), min = 0)  %>% 
-      hc_title(text = "Rzones para no realizarse exámen indicado por profesional")
+      hc_yAxis(title = list(text = ""), labels = list(format = "{value}%"), min = 0)  %>% 
+      hc_title(text = "Razones para no realizarse exámen indicado por profesional")
 
   })  
 

diff --git a/ui.R b/ui.R
@@ -145,15 +145,15 @@ bs4DashPage(
                         highchartOutput("ssd_hc_examn") 
                     ),
                     bs4Card(
-                        title = "Confirmado",
+                        title = "Confirmación a través de examen COVID-19",
                         highchartOutput("ssd_hc_posit") 
                     ),
                     bs4Card(
                         title = "Días de espera consulta",
                         highchartOutput("ssd_hc_ctads") 
                     ),
                     bs4Card(
-                        title = "Días de espera entre toma y resultados",
+                        title = "Días de espera entre toma examen y resultados",
                         highchartOutput("ssd_hc_exesp") 
                     ),
                     bs4Card(