añadir randomizado 1
This commit is contained in:
+2
-1
@@ -18,7 +18,8 @@ ui <- fluidPage(
|
|||||||
selectInput(inputId = "measure_sys", "Sistema de medida", selected = "L-W-D", choices = c("L-W-D","Min-Max","Absorbance")),
|
selectInput(inputId = "measure_sys", "Sistema de medida", selected = "L-W-D", choices = c("L-W-D","Min-Max","Absorbance")),
|
||||||
sliderInput("ncages", "Cajas", min=1, max=10, value=1),
|
sliderInput("ncages", "Cajas", min=1, max=10, value=1),
|
||||||
downloadButton("downloadData", "Descargar Excel")
|
downloadButton("downloadData", "Descargar Excel")
|
||||||
)
|
),
|
||||||
|
plotOutput("distPlot")
|
||||||
),
|
),
|
||||||
tabPanel("Análisis")
|
tabPanel("Análisis")
|
||||||
)
|
)
|
||||||
|
|||||||
Reference in New Issue
Block a user