Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
### Tab Brazil age
# Positive incidence
BRage_sub <- reactive({
date1 <- as.Date(paste0(input$BRAgeDates[1],"-01-01"))
date2 <- as.Date(paste0(input$BRAgeDates[2],"-12-31"))
br_df %>%
sivep_filter_notif(plasm = "Any", minAge = 0, maxAge = 100) %>%
filter(DT_NOTIF >= date1 & DT_NOTIF <= date2)
})
# QTD_CRUZ, COD_OCUP
output$BRAge_plot <- renderPlot({
if(input$BRAgeVar == "Crosses"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, QTD_CRUZ) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = QTD_CRUZ)) +
geom_joy() +
scale_x_continuous(limits = c(0, 100)) +
labs(x = tr("age"), y = tr("crosses"))
} else if (input$BRAgeVar == "Occupation"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, COD_OCUP) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = COD_OCUP)) +
geom_joy() +
labs(x = tr("age"), y = tr("occupation"))
} else if (input$BRAgeVar == "Sex"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, SEXO) %>%
filter(SEXO == "Male" | SEXO == "Female") %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = SEXO)) +
geom_joy() +
labs(x = tr("age"), y = tr("sex"))
} else if (input$BRAgeVar == "Symptons"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, SINTOMAS) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = SINTOMAS)) +
geom_joy() +
labs(x = tr("age"), y = tr("symptons"))
} else if (input$BRAgeVar == "UF"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, UF_INFEC) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = UF_INFEC)) +
geom_joy() +
labs(x = tr("age"), y = tr("symptons"))
} else if (input$BRAgeVar == "Country"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, PAIS_INF) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = PAIS_INF)) +
geom_joy() +
labs(x = tr("age"), y = tr("country"))
} else if (input$BRAgeVar == "Plasmodium"){
BRage_sub() %>%
select(ID_PACIE, ID_DIMEA, RES_EXAM) %>%
mutate(ID_PACIE_ADJ = ifelse((ID_DIMEA == "Days" | ID_DIMEA == "Months"), 0, ID_PACIE)) %>%
ggplot(aes(x = ID_PACIE_ADJ, y = RES_EXAM)) +
geom_joy() +
labs(x = tr("age"), y = tr("plasmodium"))
}
})