I have an application in Shiny R. On ui.R I read a Textinput, On global.R I process a query using sqldf().
How can I read a Textinput of ui.R in Global.R ?
ui.R
shinyUI(fluidPage(
  #books <<- list("Descritores FOUSP" = "descritor"),
  # Application title
  titlePanel("CRAI"),
  headerPanel(title="Pesquisa de Descritores"),
  sidebarLayout(
    sidebarPanel(
      h5('Qual é o tema da sua pesquisa ?'),
      textInput("descritor", "Digite um descritor",""),
      submitButton('Pesquisar')
)
)
This textInput with name "descritor", I want to use in query on global.R
I tried this:
output$desc <- renderText({
    paste(input$descritor)})
 sql <- sprintf("SELECT * FROM csv WHERE Assuntos = '%s'", output$desc)
But I can´t to read "descritor" on global.R.
 
    