-
Notifications
You must be signed in to change notification settings - Fork 0
/
reabilitacao-cardiaca.Rmd
189 lines (136 loc) · 6.09 KB
/
reabilitacao-cardiaca.Rmd
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
---
title: Reabilitação cardíaca
author:
- Gabriel Parisotto, MSc
- Arthur de Sá Ferreira, DSc
date: '`r format(Sys.Date())`'
geometry: "top=3cm,left=3cm,right=2cm,bottom=2cm"
link-citations: yes
always_allow_html: true
documentclass: book
papersize: a4
csl: vancouver.csl
output:
html_document:
toc: false
bookdown::pdf_book:
toc: true
includes:
in_header: [tex/preamble.tex]
rmd_files:
latex: ["reabilitacao-cardiaca.Rmd"]
latex_engine: xelatex
keep_tex: false
dev: "cairo_pdf"
fig_caption: true
bibliography: references.bib
---
<!--install and/or load all R packages-->
```{r setup, include = FALSE, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', out.width = "100%", results = "hide"}
knitr::opts_chunk$set(
echo = FALSE,
warning = FALSE,
message = FALSE,
fig.align = 'center',
results = "asis",
include = TRUE,
out.width = "100%",
knitr.kable.NA = '',
knitr.table.format = "html",
webshot = "webshot",
dev = "png",
dev = "png"
)
```
```{r packages, echo = FALSE, results = 'hide', include = FALSE}
library("dplyr")
library("webshot")
```
```{=latex}
\clearpage
\markboth{}{}
```
```{=latex}
\vspace*{\fill}
```
```{=latex}
% normal chapter numbering and arabic page numbering
\mainmatter
```
<br>
# ![](imagens/Coracao1.png) **O que são doenças cardiovasculares?**
<br>
As doenças crônicas não transmissivéis (DCNT) constituem o principal causa de morte em todo o mundo, sendo responsáveis por mortes prematuras, perda de qualidade de vida, além de adversos impactos econômicos e sociais.
As DCNT são divididas em doenças cardiovasculares (DCV), doenças do trato respiratório e neoplasias e são responsáveis por cerca de 70% das mortes globais, equivalendo a mais de 38 milhões de mortes por ano [@oliveira2022].
Cerca de 45% de todas as mortes por DCNT no mundo, mais de 17 milhões, são causadas por DCV. Distribuição similar é observada no Brasil, onde 72% das mortes resultam de DCNT, sendo 30% devido a DCV e 16% a neoplasias [@oliveira2022].
<br>
# ![](imagens/Causa2.png) **Quais as causas da doença cardiovascular?**
<br>
- Tabagismo [@précoma2019]
- Uso abusivo do álcool [@précoma2019]
- Sedentarismo [@précoma2019]
- Hipertensão arterial Sistêmica [@précoma2019]
- Colesterol alto [@précoma2019]
- Alimentação inadequada [@précoma2019]
- Obesidade [@précoma2019]
- Diabetes Mellitus [@précoma2019]
<br>
# ![](imagens/alta hospitalar.png) **Orientações após a alta hospitalar**
<br>
![](imagens/Cuidado.png) Cuidado com situações de estresse
![](imagens/Jejum.png) Evite longos períodos em jejum e tente comer de 3 em 3 horas
![](imagens/Sal.png) Precisamos de sal no organismo, mas em pouca quantidade, máximo 2 g/dia [@powles2013].
![](imagens/Bebida alcoolica.png) Interrompa o consumo de bebida alcóolica, cigarro, alimentos gordurosos e com alto teor de açúcar (sorvetes, refrigerantes, etc.)
![](imagens/Atividade fisica.png) Realize semanalmente 150 minutos de exercícios de intensidade leve/moderada (caminhada, exercício ativo livre, bicicleta, atividades em grupo) [@précoma2019].
![](imagens/Hidrate.png) Hidrate-se antes, durante e após os exercícios. Em 2 a 4 horas antes do exercício aconselha-se o consumo de água equivalente a 5 a 10 mL/kg de peso corporal, durante o exercício recomenda-se a ingestão de 400 a 800 mL de água/hora de exercício e após o exercício a ingesta de ao menos 450 a 675 mL de líquido [@exercise2007].
![](imagens/Urgencia.png) Faça acompanhamento com equipe multidisciplinar (Cardiologista, Fisioterapeuta cardiovascular, Nutricionista)
<br>
# ![](imagens/Roupas.png) **Orientação de atividade domiciliar**
<br>
- Os exercícios aeróbicos (caminhada, corrida, ciclismo ou natação) podem ser praticados por 30 minutos em 5 a 7 dias por semana. A realização de exercícios resistidos em 2 a 3 dias por semana também pode ser recomendado [@cornelissen2013].
- Exercícios de treinamento para musculatura inspiratória em 3 séries x 10 repetições (40 a 60 % da PIMax na alta hospitalar) [@cordeiro2016].
- Após receberem as instruções sobre a prescrição dos exercícios, os pacientes executam as sessões por conta própria e na falta de equipamentos domésticos, como esteira e cicloergômetros, as atividades deverão ser substituídas por exercícios calistênicos (cadeiras como equipamentos), exercícios de resistência/equilíbrio, dança, yoga, etc [@lavie2020].
<br>
```{r tabela, echo = FALSE, warning = FALSE, message = FALSE, fig.align = 'center', results = "asis"}
tabela <-
readxl::read_excel(
"Recomendações por idade (Tabela).xlsx",
sheet = 1,
col_types = c("text")
)
tabela <- as.matrix(tabela)
# exibe a tabela de dados
knitr::kable(
x = tabela,
align = "l",
escape = FALSE,
format = ifelse(knitr::is_html_output(), "html", "latex"),
booktabs = TRUE,
linesep = "",
caption = "Tabela de recomendações por idade."
) %>% kableExtra::kable_styling(
bootstrap_options = c("striped", "hover", "condensed", "responsive"),
latex_options = c("striped", "repeat_header", "HOLD_position"),
latex_table_env = "tabularx",
full_width = TRUE,
position = "center"
) %>%
kableExtra::kable_styling(
latex_options = c("basic"),
bootstrap_options = c("basic", "hover", "condensed", "responsive"),
full_width = ifelse(knitr::is_html_output(), TRUE, TRUE),
position = "center"
) %>%
kableExtra::row_spec(0, bold = TRUE, extra_css = "border-top: 1px solid; border-bottom: 1px solid") %>%
kableExtra::column_spec(1, bold = TRUE) %>%
kableExtra::row_spec(dim(tabela)[1], extra_css = "border-bottom: 1px solid") %>%
kableExtra::column_spec(column = 1, bold = T)
```
<br>
# ![](imagens/Equipe4.png) **Quando procurar o serviço de urgência/emergência?**
<br>
- Se sentir algum mal-estar como: dor no peito, procure imediatamente o pronto socorro mais próximo
- Se você possui histórico familiar de doença coronariana, for diabético, fumante, obeso ou possuir colesterol alto, tenha ainda mais atenção
<br>
# ![](imagens/Livro.png) **Referências**
<br>