Estoy armando una función para analizar la base de datos de la Encuesta Nacional de Nutrición y Salud 2018-2019 (Ennys2) y tengo dos dudas puntuales, en relación con los avances del código:

1) No logro identificar qué error de sintaxis tengo, porque me devuelve 0 como resultado
2) Necesitaría armar 3 grupos de condiciones para el segundo filtro, probé con case_when y ifelse, pero no funcionan tampoco.

```r
    FCA_resumen <- function(variable_respuesta)
      {
      resultado <- ennys2_FCA %>%
        filter({{variable_respuesta}} != " ") %>%
        group_by({{variable_respuesta}}) %>%
        summarise(FCA = sum(ponderador)) %>%
        mutate(porc_FCA = round(FCA / sum(FCA) * 100, 1)) %>%
        filter(
        {{variable_respuesta}} == "1 vez al día" | 
        {{variable_respuesta}} == "Entre 2 y 3 veces al día" | 
        {{variable_respuesta}} == "Entre 4 y 5 veces al día"| 
        {{variable_respuesta}} == "6 veces o más por día") %>% 
        summarise(!!paste ("consumo al menos una vez al día de",{{variable_respuesta}} ) := sum(porc_FCA))
      return(resultado)
    }
       
    resultado_cuestionario <- FCA_resumen(variable_respuesta = "frutas 2-12 años")
    print(resultado_cuestionario)
```