Really thx, kmprioli, but my fields appear completely messy.
I'm using this code:
library(shiny)
ui <-fluidPage(
#Título do Projeto
headerPanel("Relatorio da Tempera"),
sidebarLayout(
#Dados de Input no Painel lateral
sidebarPanel(
dateRangeInput("data",
label = "Data"),
hr(),
fluidRow(
column(4,
verbatimTextOutput("Value")),
column(4,
numericInput(inputId = "pedido",
label = "Pedido:",
value = 10),
numericInput(inputId = "item",
label = "Item:",
value = 10)),
column(4,
numericInput(inputId = "ordemmae",
label = "Ordem Mãe:",
value = 10),
numericInput(inputId = "ordemfilha",
label = "Ordem Filha:",
value = 10)),
column(4,
numericInput(inputId = "diametro",
label = "Diâmetro:",
value = 10),
numericInput(inputId = "parede",
label = "Parede:",
value = 10)),
column(4,
numericInput(inputId = "odminmin",
label = "OD Mín-Mín:",
value = 10),
numericInput(inputId = "adminmed",
label = "OD Mín-Méd:",
value = 10)),
column(4,
numericInput(inputId = "reticorpo",
label = "Retilineidade Corpo:",
value = 10),
numericInput(inputId = "retipe",
label = "Retilineidade Pé:",
value = 10)),
column(4,
numericInput(inputId = "compmin",
label = "Comprimento Mínimo:",
value = 10),
numericInput(inputId = "compmax",
label = "Comprimento Máximo:",
value = 10)),
numericInput(inputId = "diametrodrift",
label = "Diâmetro do Drift:",
value = 10),
column(4,
numericInput(inputId = "odmax",
label = "OD Máximo:",
value = 10),
numericInput(inputId = "odmin",
label = "OD Mínimo:",
value = 10)),
column(4,
numericInput(inputId = "odlamina",
label = "OD alvo Laminação:",
value = 10),
numericInput(inputId = "wtlamina",
label = "WT alvo Laminação:",
value = 10))
)
),
#Painel principal com as saidas de dados
mainPanel(
paste0("Conteúdo de saída dos Inputs")
)
)
)
I really appreciated the help.