Código hasta UI:
# Carga de librerías
library(tidyverse)
library(dplyr)
library(readr)
library(tinytex)
library(markdown)
library(rmarkdown)
library(ggpubr)
library(psycModel)
library(pagedown)
library(kableExtra)
library(knitr)
library(webshot)
library(shiny) # la libreria shiny debe ir la última para que el resto funcione (no le encuentro el sentido, pero si no, no me funciona el script)
library(shinyWidgets)
# operaciones previas
tryCatch(
expr = {
pacientes1 <- read.csv2("pacientes.csv") # carga la bbdd de pacientes
pacientes1 <- pacientes1[pacientes1$nombre != "_nombre", ]
},
error = function(e){
nombre = c("_nombre", "_nombre")
apellido1 = c("_nombre", "_nombre")
apellido2 = c("_nombre", "_nombre")
nombre_car = c("_nombre", "_nombre")
iniciales = c("_nombre", "_nombre")
fecha_nacimiento = c("2024-01-01", "2024-01-01")
id_paciente = c("_nombre", "_nombre")
sexo = c("_nombre", "_nombre")
altura = c(1.73, 1.73)
peso = c(63, 63)
diabetes = c(FALSE, FALSE)
colesterol = c(FALSE, FALSE)
hipertension = c(FALSE, FALSE)
fumador = c(FALSE, FALSE)
alcohol = c(FALSE, FALSE)
deporte = c(FALSE, FALSE)
otros = c("_nombre", "_nombre")
objetivo = c("_nombre", "_nombre")
pacientes1 <- data.frame(
nombre = nombre,
apellido1 = apellido1,
apellido2 = apellido2,
nombre_car = nombre_car,
iniciales = iniciales,
fecha_nacimiento = fecha_nacimiento,
id_paciente = id_paciente,
sexo = sexo,
altura = altura,
peso = peso,
diabetes = diabetes,
colesterol = colesterol,
hipertension = hipertension,
fumador = fumador,
alcohol = alcohol,
deporte = deporte,
otros = otros,
objetivo = objetivo
)
pacientes1$fecha_nacimiento <- as.Date(pacientes1$fecha_nacimiento, format = "%Y-%m-%d")
write_csv2(pacientes1, "pacientes.csv")
}
)
tryCatch(
expr = {
mediciones1 <- read.csv2("mediciones.csv") # carga la bbdd de mediciones
mediciones1 <- mediciones1[mediciones1$nombre != "_nombre", ]
},
error = function(e){
nombre = c("_nombre", "_nombre")
fecha_medicion = c("2005-01-01", "2005-01-01")
id_paciente = c("_nombre", "_nombre")
id_medicion = c("_nombre", "_nombre")
peso_kg = c(63, 63)
grasa_porc = c(63, 63)
masa_osea_kg = c(63, 63)
agua_porc = c(63, 63)
musculo_kg = c(63, 63)
musculo_porc = c(63, 63)
cond_fisica = c(63, 63)
metabolismo_kcal = c(63, 63)
edad_metabolica = c(63, 63)
grasa_vis_kg = c(63, 63)
brazo_cm = c(63, 63)
muslo_cm = c(63, 63)
cintura_cm = c(63, 63)
cadera_cm = c(63, 63)
tricipital_cm = c(63, 63)
subescapular_cm = c(63, 63)
suprailiaco_cm = c(63, 63)
abdominal_cm = c(63, 63)
comodidad_plan = c("_nombre", "_nombre")
recuperacion_entr = c("_nombre", "_nombre")
energia_sensacion = c("_nombre", "_nombre")
sue_calidad = c("_nombre", "_nombre")
agua_ingesta = c("_nombre", "_nombre")
estre_diarrea = c("_nombre", "_nombre")
sensacion_g = c("_nombre", "_nombre")
otros = c("_nombre", "_nombre")
mediciones1 <- data.frame(
nombre = nombre,
fecha_medicion = fecha_medicion,
id_paciente = id_paciente,
id_medicion = id_medicion,
peso_kg = peso_kg,
grasa_porc = grasa_porc,
masa_osea_kg = masa_osea_kg,
agua_porc = agua_porc,
musculo_kg = musculo_kg,
musculo_porc = musculo_porc,
cond_fisica = cond_fisica,
metabolismo_kcal = metabolismo_kcal,
edad_metabolica = edad_metabolica,
grasa_vis_kg = grasa_vis_kg,
brazo_cm = brazo_cm,
muslo_cm = muslo_cm,
cintura_cm = cintura_cm,
cadera_cm = cadera_cm,
tricipital_cm = tricipital_cm,
subescapular_cm = subescapular_cm,
suprailiaco_cm = suprailiaco_cm,
abdominal_cm = abdominal_cm,
comodidad_plan = comodidad_plan,
recuperacion_entr = recuperacion_entr,
energia_sensacion = energia_sensacion,
sue_calidad = sue_calidad,
agua_ingesta = agua_ingesta,
estre_diarrea = estre_diarrea,
sensacion_g = sensacion_g,
otros = otros
)
mediciones1$fecha_medicion <- as.Date(mediciones1$fecha_medicion, format = "%Y-%m-%d")
write_csv2(mediciones1, "mediciones.csv")
}
)
# 1a parte de la APP, es el código para generar todas las variables de entrada y salida y su disposición en la APP
ui <- fixedPage(
# crea una cabecera, aquí pondré los logos
titlePanel(
# de esta forma se crean 3 partes, una en cada línea. La 1a es la imagen del logo. La 2a genera un espacio en blanco. La 3a es el título
div(
img(
src = "esther_java.jpg", # el archivo de imagen tiene que estar en el mismo directorio que el script de la APP
width = "100%" # proporción del archivo de imagen en anchura
),
br(), # introduce un salto de párrafo sin contenido
br(), # introduce un salto de párrafo sin contenido
"Sistema de gestión de Historias Clínicas" # título de la APP, aparece debajo del logo
)
),
# crea una sección con pestañas para explicar la APP
tabsetPanel(
# 1a pestaña, para introducir las mediciones de los pacientes
tabPanel(
tags$b("Nueva medición"), # título de la pestaña en negrita
icon = tags$img(src = "nueva_medicion.png", height = 20, width = 20), # añade un icono a la pestaña
br(), # introduce un salto de párrafo sin contenido
style = "font-size: 14px", # establece en tamaño 20 de la letra de la sección. Es código CSS
br(), # introduce un salto de párrafo sin contenido
selectInput(
"nombre1", # nombre de la variable
label = "Nombre del paciente", # título del cuadro
choices = sort(pacientes1$nombre_car), # utiliza la lista de nombres guardada en la variable NOMBRE_CAR de PACIENTES1
selected = 0 # en teoría, con esto no debería aparecer ningún nombre seleccionado al iniciar la APP, pero no ocurre así
),
br(), # introduce un salto de párrafo sin contenido
dateInput(
"fecha1", # nombre de la variable
label = "Fecha de la medición", # título del cuadro
format = "dd-mm-yyyy"
),
br(), # introduce un salto de párrafo sin contenido
br(tags$b(HTML("<center>VALORACIÓN PLAN NUTRICIONAL</center>"))), # título para el resto de la sección
# genera una columna centrada con diferentes variables (radioButtons) con una escala de 5 valores, con solo 1 válido
column(12,
align = "center",
radioButtons(
"plan1",
label = "Comodidad para seguir el plan nutricional",
choices = list("Nada cómodo", "Poco cómodo", "Normal", "Cómodo", "Muy cómodo"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"recuperacion1",
label = "Recuperación post-entrenamiento",
choices = list("Muy mala", "Mala", "Normal", "Buena", "Muy buena"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"energia1",
label = "Sensación de energía",
choices = list("Muy poca", "Poca", "Normal", "Buena", "Muy buena"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"dormir1",
label = "Calidad del sueño",
choices = list("Muy malo", "Malo", "Normal", "Bueno", "Muy bueno"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"agua1",
label = "Ingesta de agua",
choices = list("Muy poca", "Poca", "Normal", "Mucha", "Muy mucha"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"baño1",
label = "Estreñimiento/Diarrea",
choices = list("Estreñimiento", "Dificultad", "Normal", "Blando", "Diarrea"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
radioButtons(
"sensacion1",
label = "Sensación general",
choices = list("Muy mala", "Mala", "Normal", "Buena", "Muy buena"),
inline = TRUE,
selected = 0
),
br(), # introduce un salto de párrafo sin contenido
# cuadro para introducir texto libre
textAreaInput(
"otros2",
label = "Otros datos de interés",
rows = 5,
placeholder = "Comentarios generales"
),
br(), # introduce un salto de párrafo sin contenido
br(), # introduce un salto de párrafo sin contenido
),
br(), # introduce un salto de párrafo sin contenido
br(tags$b(HTML("<center>VALORACIÓN ANTROPOMÉTRICA</center>"))), # título para el resto de la sección
# establece una sección con dos columnas para ordenar los diferentes valores a recoger, todos numéricos
fluidRow(
column(
width = 6,
# Contenido de la primera columna
numericInput(
"peso1",
label = "peso (kg)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"grasa1",
label = "% grasa",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"hueso1",
label = "masa ósea (kg)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"agua2",
label = "% agua corporal",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"musculo1",
label = "masa muscular (kg)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"fisico1",
label = "condición física",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"metabolismo1",
label = "metabolismo basal (kcal)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"edad1",
label = "edad metabólica (años)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"grasa2",
label = "grasa visceral (kg)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
),
column(
width = 6,
# Contenido de la segunda columna
numericInput(
"per1",
label = "perímetro de brazo (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"per2",
label = "perímetro de muslo (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"per3",
label = "perímetro de cintura (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"per4",
label = "perímetro de cadera (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"pliegue1",
label = "pliegue tricipital (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"pliegue2",
label = "pliegue subescapular (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"pliegue3",
label = "pliegue suprailíaco (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
),
numericInput(
"pliegue4",
label = "pliegue abdominal (cm)",
value = NULL # así no se muestra ningún valor al iniciar la APP
)
)
),
# genera una sección para los botones de interacción
fluidRow(
tags$hr(), # añande una línea horizontal
br(), # introduce un salto de párrafo sin contenido
# botón para borrar el contenido introducido en la pestaña (no lo borra de la base de datos)
column(
width = 2,
actionButton("borrar1",
img(src = "borrar.png", height = 60, width = 60), # añade un icono a la pestaña
icon = NULL,
style = "background-color: #F9F9F9;"
)
),
# botón para guardar en la base de datos los datos introducidos en la sección
column(
width = 2,
actionButton("guardar1",
img(src = "salvar.png", height = 60, width = 60), # añade un icono a la pestaña
icon = NULL,
style = "background-color: #F9F9F9;"
)
),
# botón para generar un informe en pdf
column(
width = 2,
downloadButton("pdf1",
img(src = "pdf.png", height = 60, width = 60), # añade un icono a la pestaña
icon = NULL,
style = "background-color: #F9F9F9;"
)
)
)
),
# 2a pestaña, para intoducir nuevos pacientes en la base de datos, es necesario si no está el paciente en la base
tabPanel(
tags$b("Nuevo paciente"), # título de la pestaña en negrita
icon = tags$img(src = "nuevo_paciente.png", height = 20, width = 20), # añade un icono a la pestaña
br(), # introduce un salto de párrafo sin contenido
style = "font-size: 14px", # establece en tamaño 20 de la letra de la sección. Es código CSS
br(), # introduce un salto de párrafo sin contenido
# establece una sección con dos columnas para ordenar los diferentes valores a recoger
fluidRow(
column(
width = 6,
# Contenido de la primera columna
textInput(
"nombre2",
label = "Nombre",
value = NULL
),
textInput(
"apellido1",
label = "Primer apellido",
value = NULL
),
textInput(
"apellido2",
label = "Segundo apellido",
value = NULL
),
dateInput(
"fecha2",
label = "Fecha de nacimiento",
value = "",
format = "dd-mm-yyyy"
),
radioButtons(
"sexo1",
label = "Sexo",
choiceNames = list("Hombre", "Mujer"),
choiceValues = list("Hombre", "Mujer"),
inline = TRUE,
selected = 0
),
numericInput(
"altura1",
label = "Altura (m)",
value = NULL
),
numericInput(
"peso2",
label = "Peso (kg)",
value = NULL
),
),
column(
width = 6,
# Contenido de la segunda columna
checkboxInput(
"diabetes1",
label = tags$b("Diabetes mellitus"),
value = FALSE
),
checkboxInput(
"colesterol1",
label = tags$b("Colesterol"),
value = FALSE
),
checkboxInput(
"tension1",
label = tags$b("Hipertensión"),
value = FALSE
),
checkboxInput(
"fumar1",
label = tags$b("Fumador"),
value = FALSE
),
checkboxInput(
"beber1",
label = tags$b("Alcohol"),
value = FALSE
),
textAreaInput(
"otros1",
label = "Otros datos de interés",
rows = 5,
placeholder = "Alergias, intervenciones quirúgicas, otras enfermedades..."
),
textAreaInput(
"deporte1",
label = "Deportes practicados",
rows = 3,
placeholder = "Actividad deportiva del paciente"
),
textAreaInput(
"objetivo1",
label = "Objetivo",
rows = 3,
placeholder = "Objetivo del paciente"
)
)
),
fluidRow(
tags$hr(), # añande una línea horizontal
br(), # introduce un salto de párrafo sin contenido
column(
width = 2,
actionButton("borrar2",
img(src = "borrar.png", height = 60, width = 60), # añade un icono a la pestaña
icon = NULL,
style = "background-color: #F9F9F9;"
)
),
column(
width = 2,
actionButton("guardar2",
img(src = "salvar.png", height = 60, width = 60), # añade un icono a la pestaña
icon = NULL,
style = "background-color: #F9F9F9;"
)
)
)
)
),
tags$hr(), # añade una línea horizontal
p(tags$b("Designed by @atpbsc.")) # pie de página
)