Как избежать этого цикла for для работы со списком

У меня проблема с R, потому что мне нужно выполнить некоторые операции со списком и создать новый фрейм данных с этими значениями из списка. Если я использую цикл for, это занимает очень много времени. И не знаю, как избежать этого цикла for и как сделать это «if + case_when» без цикла for.

В приведенном ниже коде есть комментарии, объясняющие, что я делаю и что происходит.

Большое спасибо!!

#search in all rows of list "total"
for(i in 1:nrow(total)) {

  #Take with total$Cad[[i]] a value from another list
  val1 <- posdi[posdi$cad == str_to_upper(total$Cad[[i]]),]

  #Check if "font" value from val1 is equal to "Taake" and take the value
  val2 <- val1[val1$font == "Taake",]

  #Format date value
  thedate <- as.numeric(format(as.Date(total$TheDate[[i]], format = "%Y-%m-%d"), '%Y%m%d'))

  #And here comes where I can't continue easily. I want to do an IF and make a different 
  #case_when if the result is between 1 and 5 or between 6 and 7
  if (total$dia[[i]] >= 1 & total$dia[[i]] <= 5) {
    fran = case_when(
      total$secs[[i]]>=0 & total$secs[[i]]<1.5 ~ 1,
      total$secs[[i]]>=1.5 & total$secs[[i]]<4 ~ 2,
      total$secs[[i]]>=4 & total$secs[[i]]<8 ~ 3,
      total$secs[[i]]>=8 & total$secs[[i]]<10 ~ 4)
  } else {
    fran = case_when(
      total$secs[[i]]>=0 & total$secs[[i]]<1.5 ~ 5,
      total$secs[[i]]>=1.5 & total$secs[[i]]<4 ~ 6,
      total$secs[[i]]>=4 & total$secs[[i]]<8 ~ 7,
      total$secs[[i]]>=8 & total$secs[[i]]<10 ~ 8)
  }
  
  #and finally, add that "fran" value, those three from the beggining and some from total list to a new dataframe
  datosTel[nrow(datosTel) + 1,] = c(val2$cad, str_to_upper(total$Camp[[i]]), total$numsem[[i]], thedate, total$diasem[[i]], fran, 0)
}
#It works with the "for" loop, but it take so much time (it goes one by one and the list has more than 200K rows).
#How can I do it without that for loop and make the "if + case_when" correctly?

Еще раз спасибо и хорошего дня

Как было сказано ранее, мои проблемы связаны с циклом FOR и теми IF и CASE_WHEN внутри FOR, потому что я не знаю, как это сделать, если цикла нет.