Как использовать выходной объект в другой объект в R блестящий?

Question

Я получаю данные из CSV-файла в R блестящий, и когда я хочу использовать credit_salary объект в другом выходном объекте с именем credit_decision , ошибка : credit_salary не найдено . Как можно использовать вывод credit_salary , чтобы сравнить зарплату с номером (например, 600) в credit_decision ?

library(shiny)
library(shinythemes)
ui <- fluidPage(theme=shinytheme("superhero"),
                titlePanel(h1("NON Bank", align="center")),
                tags$br(),
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", "Upload the csv file containing customers' data",
                accept = c(
                  "text/csv",
                  "text/comma-separated-values,text/plain",
                  ".csv")
      ),
      "Enter the ID of customer",
      textInput("id","","",placeholder = "Enter ID")),

    mainPanel(h3("Data of the customer"),
      tableOutput("contents"),
      textOutput("cutoff"),
      tags$br(),
      "Salary of the customer: ",
      tags$br(),
      uiOutput("sal"),
      tags$br(),
      "Credit score according to customer's salary : ",
      uiOutput("credit_salary"),
      tags$br(),
      "Decision :",
      uiOutput("credit_decision")


    )
  )
)

  server <- function(input, output) {

    output$myid <- renderText(input$id)
    output$cutoff = renderText({
    paste("Let cutoff = ", 600)
  })

 output$contents <- renderTable({
    req(mydata())

       switch(input$id,
           mydata()[input$id,]
           )
  })

    mydata <- reactive({
    req(input$file1, file.exists(input$file1$datapath))
    read.csv(input$file1$datapath)  
  })

    output$credit_salary <- renderText({
    x <- mydata()[input$id,3]
    y <- 2*x  
  })

    output$credit_decision <- renderText({
    if( credit_salary > 600){ # *****THE PROBLEM IS HERE******
      print("Credit is available")
    }
  })
}
```[enter image description here][1]


  [1]: https://i.stack.imgur.com/ReDNJ.png