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.

      
    ennys2_FCA <- ennys2_FCA %>%  
    rename(tipo_cuestionario = E_CUEST,
         ponderador = F_STG_calib,
         "leche, yogur y quesos 2-12 años" = T_C2_FCA_6_1_1,
         "frutas 2-12 años" = T_C2_FCA_6_1_2,
         "verduras 2-12 años" = T_C2_FCA_6_1_3,
         "carne roja 2-12 años" = T_C2_FCA_6_1_7,
         "pescado 2-12 años" = T_C2_FCA_6_1_8,
         "bebidas artificiales con azúcar 2-12 años" = T_C2_FCA_6_1_16,
         "facturas y pastelería 2-12 años" = T_C2_FCA_6_1_13,
         "golosinas 2-12 años" = T_C2_FCA_6_1_12,
         "productos de copetín 2-12 años" = T_C2_FCA_6_1_11,
         "leche, yogur y quesos 13-17 años"= T_C3_FCA_6_1_1,
         "frutas 13-17 años"  = T_C3_FCA_6_1_2,
         "verduras 13-17 años" = T_C3_FCA_6_1_3,
         "carne roja 13-17 años" = T_C3_FCA_6_1_7,
         "pescado 13-17 años" = T_C3_FCA_6_1_8,
         "bebidas artificiales con azúcar 13-17 años" = T_C3_FCA_6_1_16,
         "facturas y pastelería 13-17 años" = T_C3_FCA_6_1_13,
         "golosinas 13-17 años" = T_C3_FCA_6_1_12,
         "productos de copetín 13-17 años" = T_C3_FCA_6_1_11,
         "leche, yogur y quesos 18 y más años" = T_C4_FCA_6_1_1,
         "frutas 18 y más años" = T_C4_FCA_6_1_2,
         "verduras 18 y más años" = T_C4_FCA_6_1_3,
         "carne roja 18 y más años" = T_C4_FCA_6_1_7,
         "pescado 18 y más años" = T_C4_FCA_6_1_8,
         "bebidas artificiales con azúcar 18 y más años" = T_C4_FCA_6_1_16,
         "facturas y pastelería 18 y más años" = T_C4_FCA_6_1_13,
         "golosinas 18 y más años" = T_C4_FCA_6_1_12,
         "productos de copetín 18 y más años" = T_C4_FCA_6_1_11
)
  
    
```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)
```