R gt 表未显示在shiny 的应用程序上

我正在为一份求职申请开发一款shiny 的应用程序，我不知道我做错了什么.

我设法在主面板内的选项卡面板上显示了这个表:

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')

这张桌子看起来很好，一切都很好.

但是，然后我try 添加一个输入，我定义如下:

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')

但我一添加过滤器，表格就停止显示，我不知道为什么会这样.因为我定义了SELECT输入，所有可能的选项都是SELECT的，所以它没有任何感觉到表消失了.

如果有人能帮我，我会非常感激的.我知道使用可重现的示例会更好，但我创建它不是很好.

已经感谢了所有的社区.