Estou com um problema para criar um dataframe a partir de um conjunto de duas linhas de interesse, sendo:

library(tidyverse)

myfile<-read_lines("https://raw.githubusercontent.com/Leprechault/yolov3ants/master/yolov3-lca_416_conv81_sub_8_log.txt")

head(myfile)

Em algumas parte do meu arquivo eu tenho trechos que quero extrair que são:

#Last accuracy mAP@0.5 = 73.10 %

#1585: 0.299288, 0.423193 avg loss, 0.001000 rate, 3.927486 seconds, 101440 images

Nesses pontos eu quero remover as informações: mAP@0.5 = 73.10 % (na primeira linha), 1585: e 0.423193 avg loss (da linha seguinte) e criar um data.frame final que seria:

# iteration avg_loss mAP

# 1585 0.423193 73.10

# ...

mas quando tento remover a informação de interesse e por ser beginner no tidyverse, não tenho sucesso, sendo a minha tentativa na seguinte direção:

names_col2 <- c("iteration", "avg_loss", "mAP")

mydf <- myfile %>%

str_subset("Last accuracy mAP@0.5 =") %>%

enframe(name = NULL) %>%

separate(col = value, into = names_col2, sep = "[=,]") %>%

mutate_all(parse_number)

head(as.data.frame(mydf))

Alguém poderia me dar uma luz?

Obrigado,

Alexandre