Obrigado Max, Mauro e Cesar,

Deu certo, só tive que transformar o objeto *tibble* em *dataframe* na solução inicial do Max e tem outra que não necessita do pacote tidyverse, mas utilizam gsub, strsplit e grep, seguem as soluções:

# Solução 1
library(tidyverse)
myfile <- read_lines("log.txt")

names_col <- c("iteration", "total_loss", "loss_error", "rate", "time",
"n_images")

mydf <- myfile %>%
  str_subset("images$") %>%
  enframe(name = NULL) %>%
  separate(col = value, into = names_col, sep = "[:,]") %>%

  mutate_all(parse_number)


 head(as.data.frame(mydf))
#  iteration total_loss loss_error rate     time n_images
#1         1   799.2195   799.2195    0 654.6613       24
#2         2   799.5554   799.2531    0 672.5197       48
#3         3   801.0438   799.4322    0 667.1184       72
#4         4   799.9001   799.4790    0 647.3321       96
#5         5   801.5366   799.6848    0 660.7798      120
#6         6   799.3589   799.6522    0 683.4424      144



#Solução 2
myfile <- read_lines("log.txt")
tmp <- myfile[grep("^\\d*\\:", unlist(myfile))]
tmp <- do.call(rbind, strsplit(tmp, ", "))
tmp <- data.frame(do.call(rbind, strsplit(tmp[, 1], "\\: ")), tmp[, -1],
                  stringsAsFactors=FALSE)
tmp[] <- lapply(tmp, gsub, pat="\\s.+", repl="")
tmp[] <- lapply(tmp, as.numeric)
mydf <- setNames(tmp, c("iteration", "total_loss", "loss_error", "rate",
                       "time", "n_images"))

head(mydf)
#   iteration total_loss loss_error rate     time n_images
# 1         1   799.2195   799.2195    0 654.6613       24
# 2         2   799.5554   799.2531    0 672.5197       48
# 3         3   801.0438   799.4322    0 667.1184       72
# 4         4   799.9001   799.4790    0 647.3321       96
# 5         5   801.5366   799.6848    0 660.7798      120
# 6         6   799.3589   799.6522    0 683.4424      144



Abraços,

Alexandre


Em 26/03/2020 11:00, r-br-request@listas.c3sl.ufpr.br escreveu:
Enviar submissões para a lista de discussão R-br para
	r-br@listas.c3sl.ufpr.br

Para se cadastrar ou descadastrar via WWW, visite o endereço
	https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
ou, via email, envie uma mensagem com a palavra 'help' no assunto ou
corpo da mensagem para
	r-br-request@listas.c3sl.ufpr.br

Você poderá entrar em contato com a pessoa que gerencia a lista pelo
endereço
	r-br-owner@listas.c3sl.ufpr.br

Quando responder, por favor edite sua linha Assunto assim ela será
mais específica que "Re: Contents of R-br digest..."


Tópicos de Hoje:

    1. Re: Editar dados em arquivo *txt em um data frame
       (verginio@unesc.net)
    2. Re: Editar dados em arquivo *txt em um data frame
       (sznelwar@uol.com.br)
    3. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)
    4. Re: Editar dados em arquivo *txt em um data frame
       (sznelwar@uol.com.br)
    5. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)
    6. Re: Editar dados em arquivo *txt em um data frame (Cesar Rabak)


----------------------------------------------------------------------

Message: 1
Date: Wed, 25 Mar 2020 11:27:44 -0500 (CDT)
From: verginio@unesc.net
To: r-br@listas.c3sl.ufpr.br
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
	<1738291108.330325.1585153664487.JavaMail.administrator@n4.nabble.com>
Content-Type: text/plain; charset=UTF-8

Olá,

Segue uma sugestão:


library(tidyverse)
myfile <- read_lines("log.txt")

names_col <- c("iteration", "total_loss", "loss_error", "rate", "time", "n_images")

mydf <- myfile %>%
   str_subset("images$") %>%
   enframe(name = NULL) %>%
   separate(col = value, into = names_col, sep = "[:,]") %>%
   mutate_all(parse_number)

mydf


Atenciosamente,
Max Richard Verginio

_____________________________________
Sent from http://r-br.2285057.n4.nabble.com



------------------------------

Message: 2
Date: Wed, 25 Mar 2020 18:33:22 -0300
From: sznelwar@uol.com.br
To: r-br@listas.c3sl.ufpr.br
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
	<5e7bce22943e_5e922b1d522cd10870933@ip-10-81-19-112.ec2.internal.mail>
Content-Type: text/plain; charset="iso-8859-1"

Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/4345eda5/attachment-0001.html>

------------------------------

Message: 3
Date: Wed, 25 Mar 2020 21:02:08 -0300
From: Cesar Rabak <cesar.rabak@gmail.com>
To: a lista Brasileira oficial de discussão do programa R.
	<r-br@listas.c3sl.ufpr.br>
Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame
Message-ID:
	<CAKrF98=mp-fZR0jFxuN4VwOF_EceOenERbqav7a+OOucVqarvQ@mail.gmail.com>
Content-Type: text/plain; charset="utf-8"

O arquivo que o OP postou o *link* não lhe parece adequado?



On Wed, Mar 25, 2020 at 6:33 PM Mauro Sznelwar por (R-br) <
r-br@listas.c3sl.ufpr.br> wrote:

Tem um arquivo para rodar e ver como fica?


Olá,

Segue uma sugestão:


library(tidyverse)
myfile <- read_lines("log.txt")

names_col <- c("iteration", "total_loss", "loss_error", "rate", "time",
"n_images")

mydf <- myfile %>%
str_subset("images$") %>%
enframe(name = NULL) %>%
separate(col = value, into = names_col, sep = "[:,]") %>%
mutate_all(parse_number)

mydf


Atenciosamente,
Max Richard Verginio

_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.

-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/53488a8e/attachment-0001.html> ------------------------------ Message: 4 Date: Wed, 25 Mar 2020 21:27:44 -0300 From: sznelwar@uol.com.br To: r-br@listas.c3sl.ufpr.br Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <5e7bf70012764_4c462b1d522cd1087147c@ip-10-81-19-112.ec2.internal.mail> Content-Type: text/plain; charset="iso-8859-1" Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/5fcc4576/attachment-0001.html> ------------------------------ Message: 5 Date: Wed, 25 Mar 2020 21:31:37 -0300 From: Cesar Rabak <cesar.rabak@gmail.com> To: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <CAKrF98nTgqFA9E_Zy5o6X2B2bEQ0LT=fdg1MtMx-nsTBy22xgQ@mail.gmail.com> Content-Type: text/plain; charset="utf-8" Veja esta linha no texto do OP:
#Arquivo original
https://www.dropbox.com/s/pncmjwl3camap6d/log.txt?dl=0

Fazendo a entrada conforme a sugestão do Max:
str(myfile)
chr [1:1445] "obj" "Learning Rate: 0.001, Momentum: 0.9, Decay: 0.0005" ... HTH -- Cesar Rabak On Wed, Mar 25, 2020 at 9:27 PM Mauro Sznelwar por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Muito obrigado pelo retorno! Sim, eu acabei vendo e consegui rodar, mas
ele só motra os dez primeiros dados, como faço para ver o resto?



O arquivo que o OP postou o *link* não lhe parece adequado?



On Wed, Mar 25, 2020 at 6:33 PM Mauro Sznelwar por (R-br) <
r-br@listas.c3sl.ufpr.br
<http://../../../undefined//compose?to=r-br@listas.c3sl.ufpr.br>> wrote:

Tem um arquivo para rodar e ver como fica?


Olá,

Segue uma sugestão:


library(tidyverse)
myfile <- read_lines("log.txt")

names_col <- c("iteration", "total_loss", "loss_error", "rate", "time",
"n_images")

mydf <- myfile %>%
str_subset("images$") %>%
enframe(name = NULL) %>%
separate(col = value, into = names_col, sep = "[:,]") %>%
mutate_all(parse_number)

mydf


Atenciosamente,
Max Richard Verginio

_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
<http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br>
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
<http://../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br>
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível. _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/9e13902f/attachment-0001.html> ------------------------------ Message: 6 Date: Wed, 25 Mar 2020 21:36:32 -0300 From: Cesar Rabak <cesar.rabak@gmail.com> To: a lista Brasileira oficial de discussão do programa R. <r-br@listas.c3sl.ufpr.br> Subject: Re: [R-br] Editar dados em arquivo *txt em um data frame Message-ID: <CAKrF98nxi4mdR9mtQnS0DOwyfUeqKJ+EBKsAF1hHNKNSb11YvA@mail.gmail.com> Content-Type: text/plain; charset="utf-8" Só gostaria de comentar, que o resultado mydf finda sendo um *tibble* e não mais "apenas" um *data.frame*. Se isso é vantajoso ou requer que o tiblle seja demovido para data.frame só Alexandre pode aquilatar... HTH -- Cesar Rabak On Wed, Mar 25, 2020 at 1:28 PM Max Richard Verginio por (R-br) < r-br@listas.c3sl.ufpr.br> wrote:
Olá,

Segue uma sugestão:


library(tidyverse)
myfile <- read_lines("log.txt")

names_col <- c("iteration", "total_loss", "loss_error", "rate", "time",
"n_images")

mydf <- myfile %>%
   str_subset("images$") %>%
   enframe(name = NULL) %>%
   separate(col = value, into = names_col, sep = "[:,]") %>%
   mutate_all(parse_number)

mydf


Atenciosamente,
Max Richard Verginio

_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.

-------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20200325/cb109757/attachment-0001.html> ------------------------------ Subject: Legenda do Digest _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br ------------------------------ Fim da Digest R-br, volume 111, assunto 7 *****************************************