Is this what you want to do?
library(shiny)
ui <- fluidPage(
# Application title
titlePanel("Test"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
uiOutput("iGrau"),
numericInput("iLIMMAX", "Upper Limit", 800, min = 0.1, max = 100, step = 0.5),
numericInput("iLIMMIN", "Lower Limit", 400, min = 0.1, max = 100, step = 0.5),
numericInput("iTARGET", "Target", 10, min = 0.1, max = 100, step = 0.5)
),
mainPanel(
tableOutput("entradas3")
)
)
)
server <- function(input, output) {
output$iGrau <- renderUI({
selectInput(
"graudoaco",
label = "Grade",
choices = c('a','b','c'),
multiple = T
)
})
entradasmanuais <- reactive({
data.frame(
Nome = c("Grade:",
"Upper Limit:",
"Lower Limit:",
"Target:"
),
Valores = c(paste(input$graudoaco, collapse = ","),
input$iLIMMAX,
input$iLIMMIN,
input$iTARGET
),
stringsAsFactors = FALSE)
})
output$entradas3 <- renderTable({
entradasmanuais()
})
}
# Run the application
shinyApp(ui = ui, server = server)
