<table cellspacing="0" cellpadding="0" border="0"><tr><td valign="top"><p id="yMail_cursorElementTracker_0.34933234145864844">Muito obrigado Marcus, resolvido!!!!!</p> <hr><table cellspacing="0" cellpadding="0" border="0"> <tbody> <tr> <td valign="top"> <div style="font-family:Roboto, sans-serif;color:#7e7d80;"><b>De</b>:"Marcus Nunes" <marcus.nunes@gmail.com><br><b>Data</b>:17:20 Seg, 17 de Ago de PM<br><b>Assunto</b>:Re: [R-br] Criar um txt com cabeçalho<br><br></div> <div dir="ltr">Alexandre, <div><br clear="none"></div><div>substitua o último comando de seu CMR pelo seguinte:</div><div><br clear="none"></div>write.table(x=dados, file="dados_f.txt", append=TRUE, quote=FALSE).<div><span style="color:rgb(80,0,80);font-size:12.8000001907349px;"><br clear="none"></span></div></div><div class="gmail_extra"><br clear="none"><div class="gmail_quote">2015-08-17 17:19 GMT-03:00 ASANTOS <span dir="ltr"><<a rel="nofollow" shape="rect"
ymailto="mailto:alexandresantosbr@yahoo.com.br" target="_blank" href="javascript:return">alexandresantosbr@yahoo.com.br</a>></span>:<br clear="none"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="yQTDBase yqt4836204206" id="yqt86602"><div>
Prezados listeiros,<br clear="none">
<br clear="none">
Quase consegui fazer o que queria no meu dados_f.txt,
alguém teria alguma solução de como remover os sinais " ", no meu
txt final?<span class=""><br clear="none">
<br clear="none">
Segue CRM:<br clear="none">
<br clear="none">
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3)<br clear="none">
long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6)<br clear="none">
coords<-cbind(lat,long)<br clear="none">
<br clear="none">
w<-rep("w", 5)<br clear="none">
utm<-rep("utm",5)<br clear="none">
id<-seq(1:5)<br clear="none">
zon<-rep("21L", 5)<br clear="none">
id2<-seq(1:5)<br clear="none">
d1<-rep("00/00/00",5)<br clear="none">
h2<-rep("00:00:00",5)<br clear="none">
n1<-rep(0,5)<br clear="none">
n2<-rep(2,5)<br clear="none">
n3<-rep(48,5)<br clear="none">
n4<-rep(0,5)<br clear="none">
n5<-rep(13,5)<br clear="none">
<br clear="none">
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5)<br clear="none">
dados<br clear="none">
<br clear="none">
dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names =
c("w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5"))<br clear="none">
summary(dados)<br clear="none">
<br clear="none">
write.table(dados, file= "dados.txt", row.names= T, sep=", ",
quote=F)<br clear="none">
<br clear="none">
dados = read.table("dados.txt", h=T)<br clear="none"></span>
names(dados) <- NULL<br clear="none">
<br clear="none">
header <-
c("Version,212\n\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\nUSERGRID,0,0,0,0,0\n")<span class=""><br clear="none">
writeLines(text=header, con="dados_f.txt")<br clear="none">
write.table(x=dados, file="dados_f.txt", append=TRUE)<br clear="none">
<br clear="none">
<br clear="none">
Obrigado,<br clear="none">
<br clear="none">
</span><pre>--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a rel="nofollow" shape="rect">(+55) 65 8132-8112</a> (TIM) <a rel="nofollow" shape="rect">(+55) 65 9686-6970</a> (VIVO)
<a rel="nofollow" shape="rect" ymailto="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank" href="javascript:return">e-mails:alexandresantosbr@yahoo.com.br</a>
<a rel="nofollow" shape="rect" ymailto="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank" href="javascript:return">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================</pre>
<br clear="none">
<br clear="none">
<div><div class="h5"><div>Em 17/08/2015 10:55, ASANTOS escreveu:<br clear="none">
</div>
<blockquote type="cite">
Bom dia Walmes,<br clear="none">
<br clear="none">
Quase deu quase certo, apenas preciso que:<br clear="none">
<br clear="none">
Version,212<br clear="none">
WGS1984(GPS),217,6378137,298.257223563,0,0,0<b> </b><b>### Dê um
espaço</b><br clear="none">
<br clear="none">
USERGRID,0,0,0,0,0<b>### Fique logo abaixo do WGS1984 sem espaço</b><br clear="none">
<br clear="none">
<br clear="none">
"w." "utm." "id." "zon." "lat." "long." "id2." "d1." "h2." "n1."
"n2." "n3." "n4." "n5"<b> ### Desapareça essa linha</b><br clear="none">
"1," "w," "utm," "1," "21L," "343248," "8212396.7," "1,"
"00/00/00," "00:00:00," "0," "2," "48," "0," 13 <b>###
Desapareçam todos os " "</b><br clear="none">
"2," "w," "utm," "2," "21L," "342784.4," "8212346," "2,"
"00/00/00," "00:00:00," "0," "2," "48," "0," 13<br clear="none">
"3," "w," "utm," "3," "21L," "342796.2," "8212263.4," "3,"
"00/00/00," "00:00:00," "0," "2," "48," "0," 13<br clear="none">
"4," "w," "utm," "4," "21L," "343084.7," "8212369.7," "4,"
"00/00/00," "00:00:00," "0," "2," "48," "0," 13<br clear="none">
"5," "w," "utm," "5," "21L," "343020.3," "8212404.6," "5,"
"00/00/00," "00:00:00," "0," "2," "48," "0," 13<br clear="none">
<br clear="none">
Segue CRM:<br clear="none">
<br clear="none">
<br clear="none">
lat<-c(343248.0,342784.4,342796.2, 343084.7,343020.3)<br clear="none">
long<-c(8212396.7,8212346.0,8212263.4,8212369.7,8212404.6)<br clear="none">
coords<-cbind(lat,long)<br clear="none">
<br clear="none">
w<-rep("w", 5)<br clear="none">
utm<-rep("utm",5)<br clear="none">
id<-seq(1:5)<br clear="none">
zon<-rep("21L", 5)<br clear="none">
id2<-seq(1:5)<br clear="none">
d1<-rep("00/00/00",5)<br clear="none">
h2<-rep("00:00:00",5)<br clear="none">
n1<-rep(0,5)<br clear="none">
n2<-rep(2,5)<br clear="none">
n3<-rep(48,5)<br clear="none">
n4<-rep(0,5)<br clear="none">
n5<-rep(13,5)<br clear="none">
<br clear="none">
dados<-cbind(w,utm,id,zon,lat,long,id2,d1,h2,n1,n2,n3,n4,n5)<br clear="none">
dados<br clear="none">
<br clear="none">
dados = read.table("dados.txt", dec=".", sep = ",", h=T ,col.names
= c(
"w","utm","id","zon","lat","long","id2","d1","h2","n1","n2","n3","n4","n5"))<br clear="none">
summary(dados)<br clear="none">
<br clear="none">
write.table(dados, file= "dados.txt", row.names= T, sep=", ",
quote=F)<br clear="none">
<br clear="none">
dados = read.table("dados.txt", h=T)<br clear="none">
<br clear="none">
header <-
c("Version,212\nWGS1984(GPS),217,6378137,298.257223563,0,0,0\n\n
USERGRID,0,0,0,0,0\n\n")<br clear="none">
writeLines(text=header, con="dados_f.txt")<br clear="none">
write.table(x=dados, file="dados_f.txt", append=TRUE)<br clear="none">
<br clear="none">
<br clear="none">
<br clear="none">
Obrigado,<br clear="none">
<br clear="none">
<br clear="none">
<pre>--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: <a rel="nofollow" shape="rect">(+55) 65 8132-8112</a> (TIM) <a rel="nofollow" shape="rect">(+55) 65 9686-6970</a> (VIVO)
<a rel="nofollow" shape="rect" ymailto="mailto:e-mails:alexandresantosbr@yahoo.com.br" target="_blank" href="javascript:return">e-mails:alexandresantosbr@yahoo.com.br</a>
<a rel="nofollow" shape="rect" ymailto="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank" href="javascript:return">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<br clear="none">
<br clear="none">
<div>Em 17/08/2015 09:58, Walmes Zeviani
escreveu:<br clear="none">
</div>
<blockquote type="cite">
<div dir="ltr">
<div class="gmail_default" style="font-family:trebuchet ms, sans-serif;">Combine writeLines() com write.table().<br clear="none">
<br clear="none">
header <- c("Walmes Zeviani\n 2015-08-17\n\n")<br clear="none">
writeLines(text=header, con="my.txt")<br clear="none">
write.table(x=cars, file="my.txt", append=TRUE)<br clear="none">
<br clear="none">
À disposição.<br clear="none">
</div>
<div class="gmail_default" style="font-family:trebuchet ms, sans-serif;">Walmes.<br clear="none">
</div>
</div>
<br clear="none">
<fieldset></fieldset>
<br clear="none">
<pre>_______________________________________________
R-br mailing list
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="javascript:return">R-br@listas.c3sl.ufpr.br</a>
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br clear="none">
<br clear="none">
<fieldset></fieldset>
<br clear="none">
<pre>_______________________________________________
R-br mailing list
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="javascript:return">R-br@listas.c3sl.ufpr.br</a>
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br clear="none">
<pre></pre>
</div></div></div></div>
<br clear="none">_______________________________________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="javascript:return">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><br clear="none"><br clear="all"><div><br clear="none"></div>-- <br clear="none"><div class="gmail_signature"><div dir="ltr">Marcus Nunes<br clear="none"><a rel="nofollow" shape="rect" target="_blank" href="http://marcusnunes.me/">http://marcusnunes.me/</a><br clear="none"></div></div>
</div><div id="msgSandbox_AKfmjkQAAA8rVdJQHwdeuHqJzhw_2" class="msgSandbox" style="padding: 1.5em 0.5em 0.5em 1.2em; word-wrap: break-word;"><div class="yQTDBase yqt4836204206" id="yqt06356">_______________________________________________<br clear="none">R-br mailing list<br clear="none"><a shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="javascript:return">R-br@listas.c3sl.ufpr.br</a><br clear="none"><a shape="rect" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">Leia o guia de postagem (<a shape="rect" href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</div></div></td> </tr> </tbody> </table></td></tr></table>