function(input, output, session){
  
  # делаем запрос в таблицу
  table <- reactive({    
    table <- as_sheets_id("1JJ6TJ5312mzeaQrX3152231oaXn2NZ4eebtXajw9DaS0") %>%
      sheets_read("Portfolio")
  })
  
  
  # колдунство неистовое 
    choices <- reactive({
      unique(table()$currency)
    })
  
    observe({
      updateSelectInput(session, "currency", choices = choices())  
    })
    
  
  # фильтруем данные
  table2 <- reactive({
    table() %>% filter(currency == input$currency)
  })
  
  
  # выводим таблицу в ui
  output$stocks <- renderDataTable({
    datatable(table2(),options = list(
                                    dom = 't',
                                    pageLength = 8,
                                    lengthMenu = c(5, 10, 15, 20)
                                    )
              )
  })