我正在为一个工作申请做一个闪亮的应用程序，我不明白我做错了什么。
我设法在主面板内的选项卡面板上显示了这个表：

prestamos_complete %>% 
  filter(Estado.solicitud %in% c('Approved', 'Rejected')) %>% 
  group_by(Nombre,Cedula, Genero) %>% 
  summarise(tasa_rechazada= sum(Estado.solicitud=='Rejected')/n(),
            total_solicitudes = n()) %>% 
  filter(tasa_rechazada!= 1 & tasa_rechazada!= 0) %>% 
  arrange(desc(total_solicitudes)) %>% 
  ungroup() %>% 
  slice_head(n=10) %>% 
  gt() %>%
  fmt_percent(columns = tasa_rechazada, decimals = 1) %>% 
  fmt_number(total_solicitudes, decimals = 0) %>% 
  tab_options(table.background.color = '#fdae6b',
              column_labels.border.top.color = 'black',
              column_labels.border.bottom.color = 'black',
              column_labels.border.lr.color = 'black',
              table_body.hlines.color =  'black')

这张table看起来很好，而且工作得很好。
但是，我尝试添加一个输入，我定义如下：

selectInput(
        inputId = "estado_solicitud",
        label = "Seleccione Estado Solicitud:",
        choices = c(unique(prestamos_complete$Estado.solicitud)),
        selected = c('Rejected', 'Aprproved')
      )

因此，服务器上的输出如下所示：

output$gttable1 = render_gt({
    prestamos_complete %>% 
      filter(Estado.solicitud %in% input$estado_solicitud) %>% 
      group_by(Nombre,Cedula, Genero) %>% 
      summarise(tasa_rechazada= sum(Estado.solicitud=='Rejected')/n(),
                total_solicitudes = n()) %>% 
      filter(tasa_rechazada!= 1 & tasa_rechazada!= 0) %>% 
      arrange(desc(total_solicitudes)) %>% 
      ungroup() %>% 
      slice_head(n=10) %>% 
      gt() %>%
      fmt_percent(columns = tasa_rechazada, decimals = 1) %>% 
      fmt_number(total_solicitudes, decimals = 0) %>% 
      tab_options(table.background.color = '#fdae6b',
                  column_labels.border.top.color = 'black',
                  column_labels.border.bottom.color = 'black',
                  column_labels.border.lr.color = 'black',
                  table_body.hlines.color =  'black')

但是一旦我添加了那个过滤器，表格就停止显示了，我不知道为什么会这样。正如我定义的选择输入与所有可能的选项被选中，它没有任何意义的表消失.
如果有人能帮助我，我真的会珍惜它。我知道这是一个更好的可复制的例子，但我不好创造它。
已经感谢了整个社区。