Sampling progressively larger chunks of sequential rows with random starts per ID

Example Data

df <- data.frame(id=rep(LETTERS, each=10)[1:50], fruit=sample(c("apple", "orange", "banana"), 50, TRUE))

Problem

Pick a random start point within each id and from that point, select that row and subsequent, sequential rows totaling 1% of the rows within that ID. Then do it again for 2% of each ID's rows, and 3% and so on up to 99% of the rows per ID. Also, do not select a random point to begin sampling that is closer to the end of the ID's rows than the percentage desired to be samples (i.e., don't try to sample 20% of sequential rows from a point that's 10% from the end of an ID's number of rows.)

Desired Result

What dfcombine looks like from the first code chunk below, only instead of randomly selected fruit rows within an id, the fruit rows will have only a random start-point, with the subsequent rows needed for the sample following the start-point row sequentially.

What I've Tried

I can pull part of this problem off with the following code -- but it selects all rows at random, and I need the sample chunks to be sequential following the random start point (FYI: if you run this, you'll see your chunks start at 6% b/c this is a small dataset -- no rows <6% of sample-per-id):

library(tidyverse)

set.seed(123) # pick same sample each time

dflist<-list() # make an empty list

for (i in 1:100) # "do i a hundred times"

{

  i.2<-i/100 # i.2 is i/100
  dflooped <- df %>% # new df
    group_by(id) %>% # group by id
    sample_frac(i.2,replace=TRUE)  # every i.2, take a random sample
  dflooped 
  dflist[[i]]<-dflooped 
}
dflist # check

library(data.table)

dfcombine <- rbindlist(dflist, idcol = "id") # put the list elements in a df

I can also pick the sequentially larger chunks I'm looking for with this -- but it doesn't allow me the random start (it always goes from the beginning of the df):

lapply(seq(.01,.1,.01), function(i) df[1:(nrow(df)*i),])

and using dplyr group_by spits an error I don't understand:

df2 <- df %>%
  group_by(id) %>%
  lapply(seq(.01,1,.01), function(i) df[1:(nrow(df)*i),])

Error in match.fun(FUN) : 
  'seq(0.01, 1, 0.01)' is not a function, character or symbol

So I may have some of the pieces, but am having trouble putting them together -- the solution may or may not include what I've done above. Thanks.