“filter（）”输入“…1”出现错误。不允许从shinyoutput对象读取x

我想知道如何使用过滤器，将所选输入读取的信息在表gastos中搜索，但始终发送并出错

---

标题：“无标题”
输出：
flexdashboard:：flex_仪表板：
方向：世界其他地区
垂直布局：填充
运行时间：闪亮
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（tidyverse）
```
```{r}
#信息报
卢格
    title: "Untitled"
    output: 
    flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: fill
    runtime: shiny    
---

```{r setup, include=FALSE}
    library(flexdashboard)
    library(tidyverse)
```

```{r}
    # le informacion
    lugar <- c("Culiacan","Leon","Merida","Torreon")
    gastos <- data.frame(factura = c("Leon","Merida","Torreon","Culiacan"),
               Total_fact = c(123,456,789,345),
               cliente = c(1,5,3,7))
```

```{r}
    #captura datos
    selectInput(inputId = "Sel_entrada","Facturado por: ",choices = lugar)

    verbatimTextOutput("sale")
    textOutput("sale2")
    output$sale <- renderPrint({input$`Sel_entrada`})
    output$sale2 <- renderText(input$`Sel_entrada`)
```

# Metricas {data-icon=fa-ruler}
##
### Total FActurado

```{r}
    gastos %>% filter(factura == output$sale2)
```