Muito obrigado Max, genial e muito didática a sua resposta!!!

Apenas mudei o final para *csv para evitar a confusão que dá no *txt entre *numeric*/*character*, sendo:

filename <- myfile[1, 1] %>%
  str_extract(".*:") %>%
  str_remove("\\.jpg:") %>%
  paste0("pred_", ., ".csv")

filename

# salva o arquivo
write.csv(x = mydataframe, file = filename, row.names = FALSE)

Achei também essa função lag() para atrasar uma linha demais!

Alexandre

--

Re:  Criar um dataframe pela combinação de duas linhas de
      informação em *txt