Bom dia pessoal.

Estou criando uma função, porém na hora de chamar a função, o parâmetro não está funcionando ao realizar o FILTER e o SUM.

Para selecionar a coluna ou para realizar uma contagem do tipo n(), funciona corretamente.

Segue exemplo:

    df <- data.frame(C1 = c(1,2,NA,3))
    
    df_funcao = function(PERIODO){
      soma = df %>% 
      dplyr::select(PERIODO) %>%
      filter(PERIODO != 'NA') %>% 
      summarise(soma = sum(PERIODO))
    
    return(soma)
      
    }
    
    df_2 <- df_funcao(C1)
    df_2

Aqui da um erro tipo character, porém está como formato numerico.

Error: Problem with `summarise()` column `soma`.
i `soma = sum(PERIODO)`.
x invalid 'type' (character) of argument
Run `rlang::last_error()` to see where the error occurred. 


Alguém poderia me ajudar ?