library(shiny)
## Warning: package 'shiny' was built under R version 4.3.3
library(shinydashboard)
## Warning: package 'shinydashboard' was built under R version 4.3.3
##
## Attaching package: 'shinydashboard'
## The following object is masked from 'package:graphics':
##
## box
ui <- dashboardPage(
title = "Dashboard",
skin = "red",
dashboardHeader(title = "Manejo Integrado de Enfermedades en el Cultivo de Tomate (MIE)", titleWidth = 617),
dashboardSidebar(
sidebarMenu(
id = "sidebarID",
menuItem("Inicio", tabName = "inicio", icon = icon("home")),
menuItem("Fusarium oxysporum", tabName = "mildiu", icon = icon("leaf")),
menuItem("Phytophthora infestans", tabName = "mancha", icon = icon("leaf")),
menuItem("Alternaria solani", tabName = "tizon", icon = icon("leaf"))
)
),
dashboardBody(
tags$style(
HTML("
/* Estilos personalizados */
.custom-title {
text-align: center;
border: 4px solid #66CD00;
padding: 3px;
border-radius: 5px;
background-color: #D1EEEE;
margin-bottom: 10px;
}
.custom-block {
border: 4px solid #66CD00;
padding: 5px;
border-radius: 5px;
background-color: #D1EEEE;
margin-bottom: 20px;
}
.custom-paragraph {
text-align: justify;
text-justify: inter-word;
font-size: 14px;
margin-left: 3px;
margin-right: 3px;
margin-bottom: 3px;
}
")
),
tabItems(
tabItem(tabName = "inicio",
fluidRow(
div(class = "custom-title", width = 17,
h2("Introducción")
),
div(class = "custom-block", width = 12,
fluidRow(
column(width = 5,
img(src = "https://raw.githubusercontent.com/ACORTESCA/imagenes/c02c10d9e61115058f7892a249f583d282b66072/Combinacion.png", height = "300px",width = "105%")
),
column(width = 7,
p(class = "custom-paragraph",
"El cultivo de tomate en Colombia abarca al menos 21 departamentos, con una extensión de siembra que alcanza aproximadamente 9 mil hectáreas y una producción anual de 512 mil toneladas, con un rendimiento promedio de 62.3 toneladas por hectárea. La mayor parte de la producción, un 90%, se concentra en 10 departamentos de la región Andina, donde Boyacá destaca como el más productivo, alcanzando hasta 100 toneladas por hectárea, seguido por Caldas, Risaralda y Cundinamarca. Boyacá se destaca como el principal productor de tomate bajo invernadero, representando los cultivos más tecnificados y productivos del país (CC.2015). La línea Agrícola del tomate en Cundinamarca, se caracteriza por tener una Área Sembrada (ha) de 1.732 Hectáreas de las cuales 581 Hectáreas (33,54%) corresponden a producción de tomate bajo invernadero y 1.151 Hectáreas (66,46%) dedicadas a la producción de tomate en condiciones de campo. La Producción (t) de tomate alcanza las 68.521 Toneladas anuales, de las cuales 42.824 Toneladas (62,49%) corresponden a producción de tomate bajo invernadero y 25.697 Toneladas (37,50%) de tomate en condiciones de campo."
),
p(class = "custom-paragraph",
"El tomate, científicamente conocido como Solanum lycopersicum, es una planta perenne anual de porte arbustivo, está adaptada a una, altitud entre 0 y 1.500 metros sobre el nivel del mar,temperaturas entre 15°C y 25°C, humedad relativa del 60% al 85%, y precipitaciones entre 1.500 y 2.500 mm/año. Prefiere suelos profundos de textura franca con un pH ácido entre 6 y 7. Presenta alta susceptibilidad a, heladas, exceso de agua y falta de luz, con variedades determinadas e indeterminadas,requiere condiciones climáticas óptimas con temperaturas diurnas entre 20-25°C y nocturnas entre 15-20°C para un desarrollo normal de los procesos bioquímicos,la humedad relativa ideal para su desarrollo oscila entre el 60% y el 85%,requiriendo de 6 a 8 horas diarias de luz para un crecimiento óptimo."
)
)
)
),
column(width = 12, align = "center",
img(src = "https://raw.githubusercontent.com/ACORTESCA/imagenes/c02c10d9e61115058f7892a249f583d282b66072/Ciclo.png", width = "70%")
)
)
),
tabItem(tabName = "mildiu",
div(class = "custom-title", width = 17,
h2("Fusarium oxysporum")
),
div(class = "custom-block",
p(class = "custom-paragraph",
"Fusarium oxysporum es un hongo patógeno que afecta a los tomates al invadir los tejidos vasculares, causando obstrucciones que interrumpen el transporte de agua y nutrientes esenciales. Este proceso resulta en un marchitamiento progresivo de la planta, comenzando típicamente en las hojas inferiores y extendiéndose hacia arriba. Además de su impacto vascular, Fusarium oxysporum puede persistir en el suelo, lo que lo hace capaz de atacar las raíces desde las etapas tempranas del desarrollo de la planta."
)
),
fluidRow(
column(4, align = "center",
div(class = "custom-block",
img(src = "https://www.koppert.mx/content/_processed_/7/7/csm_Fusarium_oxysporum_tomato_8e858eb9b7.jpg", width = "100%"),
div(class = "custom-paragraph",
p(
"Invade los tejidos vasculares, causando una obstrucción que interfiere con el transporte de agua y nutrientes. La marchitez comienza en las hojas inferiores y se extiende a toda la planta. Con el tiempo, esto lleva al colapso permanente y la muerte de la planta."
),
textInput("extension_mildiu1", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate1", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcQA9xfYYq64Cjrn-OHzA0qq6NPa2rqOEVqwfw&usqp=CAU", width = "100%"),
div(class = "custom-paragraph",
p(
"La enfermedad provoca una característica decoloración marrón oscuro del xilema, visible al cortar el tallo longitudinalmente. Esta necrosis vascular es resultado de la acumulación de micelios fúngicos y la producción de micotoxinas, que dañan y bloquean los vasos del xilema."
),
textInput("extension_mildiu2", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate2", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://www.fertilab.com.mx/Sitio/img/Notas_Tecnicas/NTF-LF01-Identificacion-y-sintomas-de-Fusarium-Oxysporum-y-Fusarium-Solani.jpg", width = "100%"),
div(class = "custom-paragraph",
p(
"Los síntomas de la marchitez por Fusarium pueden variar considerablemente dependiendo de la cepa del patógeno, la variedad de tomate afectada, y las condiciones ambientales. Algunas plantas pueden mostrar crecimiento reducido y estancamiento sin una marchitez evidente, mientras que, en otras, la enfermedad puede avanzar hasta causar la muerte de la planta."
),
textInput("extension_mildiu3", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate3", label = "Calcular dosis")
)
)
)
)
),
tabItem(tabName = "mancha",
div(class = "custom-title", width = 17,
h2("Tizón tardío del Tomate (Phytophthora infestans)")
),
div(class = "custom-block",
p(class = "custom-paragraph",
"Phytophthora infestans es un oomiceto patógeno que afecta severamente a los tomates al invadir los tejidos foliares, tallos y frutos. Esta enfermedad causa manchas oscuras en los bordes o ápices de los folíolos, acompañadas de tizón foliar y afectación de los frutos. La infección puede progresar rápidamente, llevando a la defoliación y eventualmente a la muerte de la planta. Además, Phytophthora infestans tiene la capacidad de infectar los tubérculos a través de diversos puntos de entrada, causando una coloración castaño azulada en la corteza y transformando la podredumbre seca en húmeda bajo condiciones adecuadas."
)
),
fluidRow(
column(4, align = "center",
div(class = "custom-block",
img(src = "https://agrisolver.s3.amazonaws.com/1344/conversions/medialibraryRQEheC-medium.jpg", width = "100%"),
div(class = "custom-paragraph",
p(
"Las plantas afectadas por Phytophthora infestans muestran inicialmente manchas oscuras en los bordes o ápices de los folíolos. Estas manchas pueden extenderse rápidamente por toda la hoja, afectando también los pecíolos y provocando defoliación, principalmente en las hojas inferiores."
),
textInput("extension_mancha1", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate4", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRrzTIPGyIvlQneH-1yJ0I4DM2n1Uk_cDMyPw&usqp=CAU", width = "100%"),
div(class = "custom-paragraph",
p(
"En condiciones ambientales favorables, se puede observar una felpilla blanco grisácea en el envés de las hojas infectadas, constituida por micelio y zoosporangios del patógeno. Este signo es característico de la enfermedad y indica una infección avanzada."
),
textInput("extension_mancha2", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate5", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRjiLBLdrn-JVnAmdI4oFG5_ZCMJGhWZjh7Zg&usqp=CAU", width = "100%"),
div(class = "custom-paragraph",
p(
"Los tallos afectados por Phytophthora infestans muestran manchas oscuras y alargadas que eventualmente confluyen, dejando el tallo completamente ennegrecido. La afectación compromete la estructura del tallo, volviéndolo quebradizo y propenso a romperse. Este proceso afecta desde la parte superior hasta la base de la planta, inhibiendo su crecimiento típico."
),
textInput("extension_mancha3", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate6", label = "Calcular dosis")
)
)
)
)
),
tabItem(tabName = "tizon",
div(class = "custom-title", width = 17,
h2("Tizón Temprano del Tomate (Alternaria solani)")
),
div(class = "custom-block",
p(class = "custom-paragraph",
"El Tizón Temprano, causado por el hongo Alternaria solani, es una enfermedad fúngica ampliamente distribuida que afecta a los tomates en todo el mundo. Este patógeno puede infectar en cualquier etapa del ciclo de desarrollo de la planta y en cualquier órgano aéreo, incluyendo hojas, tallos, flores, pecíolos y frutos. Las condiciones óptimas para el desarrollo de la enfermedad incluyen alta humedad y temperaturas moderadas, lo que favorece la germinación de las esporas del hongo y la penetración en los tejidos vegetales."
)
),
fluidRow(
column(4, align = "center",
div(class = "custom-block",
img(src = "https://herbariofitopatologia.agro.uba.ar/wp-content/uploads/2021/05/Nicole-W-Gauthier-3.jpg?v=1631545432", width = "100%"),
div(class = "custom-paragraph",
p(
"Las hojas afectadas por el Tizón Temprano exhiben manchas circulares pardas con anillos concéntricos, iniciando comúnmente en el borde o ápice de los folíolos. Estas lesiones pueden alcanzar hasta medio centímetro de diámetro y progresar rápidamente a tonos amarillos y luego pardos. A medida que la enfermedad avanza, las hojas afectadas tienden a colgar debido a la necrosis de los tejidos, y se desarrolla un halo clorótico alrededor de las manchas debido a la producción de toxinas fúngicas."
),
textInput("extension_tizon1", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate7", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://cdn.portalfruticola.com/2022/08/alternaria-en-tomate2.jpg", width = "100%"),
div(class = "custom-paragraph",
p(
"En los frutos, el Tizón Temprano se manifiesta como manchas pardas y hundidas, que pueden provocar la deformación y ablandamiento de los mismos. La presencia de Alternaria solani en los frutos reduce su calidad y valor comercial."
),
textInput("extension_tizon2", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate8", label = "Calcular dosis")
)
)
),
column(4, align = "center",
div(class = "custom-block",
img(src = "https://images.engormix.com/forums/ph-20210624_213956-S-13755-alte.jpg", width = "100%"),
div(class = "custom-paragraph",
p(
"Los síntomas del Tizón Temprano pueden afectar los tallos, produciendo manchas oscuras y hundidas que se extienden por toda la longitud del órgano afectado. Estas lesiones debilitan la estructura del tallo y pueden llevar a la caída prematura de los frutos."
),
textInput("extension_tizon3", label = "Extensión de tierra (hectáreas):", value = ""),
actionButton("btn_calculate9", label = "Calcular dosis")
)
)
)
)
)
)
)
)
server <- function(input, output, session) {
calcular_y_mostrar_resultado <- function(input_id, btn_id, factor) {
observeEvent(input[[btn_id]], {
extension_input <- as.numeric(input[[input_id]])
if (!is.na(extension_input) && extension_input >= 0) {
dosis_litros <- extension_input * factor
showModal(modalDialog(
title = "Resultado",
paste("Cantidad de Producto a Aplicar:", dosis_litros, "litros/ha")
))
} else {
showModal(modalDialog(
title = "Error",
"Ingrese una extensión de tierra válida."
))
}
})
}
lapply(1:3, function(i) {
calcular_y_mostrar_resultado(paste0("extension_mildiu", i), paste0("btn_calculate", i), 20)
})
lapply(1:3, function(i) {
calcular_y_mostrar_resultado(paste0("extension_mancha", i), paste0("btn_calculate", i + 3), 20)
})
lapply(1:3, function(i) {
calcular_y_mostrar_resultado(paste0("extension_tizon", i), paste0("btn_calculate", i + 6), 5*5)
})
}
shinyApp(ui = ui, server = server)
Shiny applications not supported in static R Markdown documents