Считайте столбцы, пока не будет найдено значение для каждой строки

Я хочу получить количество столбцов, пока не будет найдено значение 1. Подсчет должен включать только var3, var4 и var5. У меня есть что-то вроде этого:

var1 var2     var3 var4 var5 var6
1    3750893  .5   .6   1    73891
2    75934     1    0  .1    60361
3    85        1   .1  .9    1
4    99283     0    1  .1    64123

А я хочу следующее:

var1 var2     var3 var4 var5 var6   var7
1    3750893  .5   .6   1    73891  3
2    75934     1    0  .1    60361  1
3    85        1   .1  .9    1      1
4    99283     0    1  .1    64123  2

Это код, но:

1. Я хотел бы избежать выбора столбцов (я предпочитаю сохранять полные данные) и
2. функция длины должна измениться, чтобы получить желаемый результат

    df <- data.frame(var1=c(1, 2, 3, 4),var2=c(3750893, 75934, 85, 99283),
                 var3=c(.5, 1, 1, 0), var4=c(.6, 0, .1, 1),
                 var5=c(1, .1, .9, .1), var6=c(73891, 60361, 1, 64123))

    #select columns that will be used to create the new variable
    df2 <- df[,c("var3", "var4", "var5")]

    #create new variable counting occurrences of value "1" in var3-var5.      
    df2$var7 <- apply(df2, 1, function(x) length(which(x==1)))