if statement with dates in R - generalizing per year

I start from the following question to seek generalization properties: if statement with dates in R

df <- data.frame(date = as.Date(c("16.04.2015", "04.08.2014", "11.09.2013",
                                  "20.11.2015", "04.04.2014"), '%d.%m.%Y'))

I want to identify all the dates between 07-15 (%m-%d) and 12-31

e.g.

> date        value
> 16.04.2015  0
> 04.08.2014  1
> 11.09.2013  1
> 20.11.2015  1
> 04.04.2014  0

My solution based on a solution by @rawr posted in the above question:

Function for the interval:

`%between%` <- function(x, interval) x >= interval[1] & x <= interval[2]

vector with all the possible beginning:

begi<-as.Date(sprintf('%s-07-15',1993:2018))

Vector with all the possible intervals

dates<-as.Date(c(sprintf('%s-07-15',1993:2018), sprintf('%s-12-31',1993:2018)))

Loop using the function

df$value<-NA

for(i in length(begi) )
{
  ind<-which(format(df$date,"%Y") == format(begi[i], "%Y"))
  df$value[ind]<- 1*(df$date[ind] %between% as.Date(c(begi[i], dates[i+length(begi)])))
      }

If I run the i one by one I obtain the wanted result, if I run the loop the last i overwrite the entire column instead of using only the position indicated by ind. Why?