Mute con la funzione personalizzata in R non funziona

Question

Ho un frame di dati, contenente una colonna chiamata: "Frequenza". La frequenza ha valori come "anno", "settimana", "mese" ecc. Ora voglio creare una nuova colonna in base alla colonna di frequenza in cui il nuovo valore corrispondente dell'anno sarà 1, il valore corrispondente del mese sarà il valore corrispondente di 12 e settimana BE 48. Ho cercato di fare una funzione per questo come "getvalue" e ho cercato di creare una nuova colonna applicando una mutazione (DPHYR) su quella funcion. Ma sfortunatamente ricevo il seguente avvertimento e tutti i valori trasformati dal valore di "1".

getValue <- function(input) {

          if (input == 'Year')
          {
            result <- 1
          } 
          else if(input == 'Month')
          {
            result <- 12
          } 
          else if(input == 'Week')
          {
            result <- 48
          } 

          return(result)
        }

      Data =  mutate(gateway, YearlyHit = getValue(gateway$Frequency))
      Data

Ecco il messaggio di avviso che sto ricevendo -

Warning message:
In if (input == "Year") { :
  the condition has length > 1 and only the first element will be used

Come posso ottenere il risultato richiesto in R?