|
@ -54,7 +54,7 @@ ui <- fluidPage( |
|
|
choices = list("NHC" = 1, "UMID/OVID" = 2, "UM/OV"=3), |
|
|
choices = list("NHC" = 1, "UMID/OVID" = 2, "UM/OV"=3), |
|
|
selected = 2), |
|
|
selected = 2), |
|
|
textInput("id", label = "ID", value = ""), |
|
|
textInput("id", label = "ID", value = ""), |
|
|
actionButton("nitrosync", "Sincroniza Nitrógeno") |
|
|
|
|
|
|
|
|
actionButton("nitrosync", "Actualiza Nitrógeno") |
|
|
), |
|
|
), |
|
|
mainPanel( |
|
|
mainPanel( |
|
|
htmlOutput("report"), |
|
|
htmlOutput("report"), |
|
|