inst/shiny/ui.R

In jtrecenti/inpi:

library(shiny)

shinyUI(fluidPage(
  
  fluidRow(column(
    width = 6, 
    offset = 3,
    textInput('pesquisa', 'Termo de pesquisa')
  )),
  
  fluidRow(column(
    width = 6, 
    offset = 3,
    submitButton('Pesquisar')
  )),
  
  fluidRow(column(
    width = 6, 
    offset = 3,
    textOutput('resultado_txt')
  )),
  
  fluidRow(column(
    width = 6, 
    offset = 3,
    tableOutput('resultado')
  ))
  
))