Нужна помощь в создании функции

Question

Я создал функцию и получаю следующую ошибку

Error in parse(text = x, srcfile = src): <text>:2:0: unexpected end of input

Исходя из предыдущего вопроса, эта ошибка обычно связана с отсутствующей скобкой. Тем не менее, у меня есть проверка много раз, и я не вижу пропущенные скобки

функция показана ниже

function(x,y){
    year.col<-select_if(x,is.numeric)
    year.col[is.na(year.col)]<-0
    year.col[year.col==0]<-paste(y)
    updated.dataset<-cbind(x,year.col)
    return(year.col)
    }

Пример кадра данных

A   B   C   D   E  F  G  H 
foo T   S   K   0  0  0  NA 
foo T   A   j   0  NA 0  0
foo T   A   i   0  0  NA 0
foo T   C   o   NA NA 0  0 

num = 0.5 

df<-function(dataframe,num)

Любая помощь будетбыть оцененным.