Re: [R-br] Usar R p/ importar informações da web

Thu, 03 Oct 2013 09:41:46 -0700 

Muito Obrigado !

Att Téo Calvo.

Em 02-10-2013 20:54, Alisson Lucrecio escreveu:

Caro Teodoro,
Boa noite.
Veja esse link http://r-br.2285057.n4.nabble.com/R-br-r-baixando-dados-inmet-td4660459.html
Exite outras maneiras, mas você precisa saber python, assim segue outro exemplos. 

from ghost import Ghost
from bs4 import BeautifulSoup as bs
import re
import time
import regex
from bs4 import BeautifulSoup
import time
ghost = Ghost()

def load_account():
ghost.open("http://www.inmet.gov.br/projetos/rede/pesquisa/inicio.php";)
ghost.fill("form", {"mCod":"[email protected]", "mSenha":"bv1k0wgj"}) 
ghost.set_field_value("input.botao", " Acessar ")
ghost.click("input.botao", expect_loading=True)

load_account()

ghost.open("http://www.inmet.gov.br/projetos/rede/pesquisa/form_mapas_c_horario.php";)

ghost.fill("form", {"mRelDtInicio":"01/07/2012",
"mRelDtFim":"01/08/2012",
"mRelEstado":"MG",
"mRelRegiao":"4",
"mOpcaoAtrib1":"0",
"mOpcaoAtrib2":"0",
"mOpcaoAtrib5":"0",
"mOpcaoAtrib6":"0",
"mOpcaoAtrib8":"0",
"mOpcaoAtrib9":"0",
"mOpcaoAtrib12":"0"})

ghost.evaluate("document.frmCad.submit()", expect_loading=True)

ghost.capture_to("/Users/Alisson/Desktop/lixo.png")

soup = BeautifulSoup(ghost.content)
urls = regex.findall(r"http://www.inmet.gov.br/projetos/rede/pesquisa/gera_serie_txt.php?[^ ]*", ghost.content) 

tables = {}
errors = []
for url in urls:
    print url
    try:
ghost.open(url)
        soup = BeautifulSoup(ghost.content)
    except:
errors.append([url])
        next
    try:
cidade = regex.findall(r"Esta.*?o\s*?:\s([A-Z|\s]*-\s[A-Z]*)", soup.pre.get_text())[0] table = regex.findall(r"(Estacao;Data;Hora((.|\n)*))", soup.pre.get_text())[0][0] 
tables[cidade] = table
time.sleep(2)
    except IndexError:
errors.append([soup.pre])
        next


for cidade, tabela in tables.iteritems():
    f = open("/Users/Alisson/Desktop/" + cidade + ".txt", "w")
    f.write(table)
    f.close()

Abracos
Alisson Lucrécio da Costa
------------------------------------------------------------------------
*From:* Teodoro Calvo <[email protected]>
*To:* [email protected]
*Sent:* Wednesday, October 2, 2013 8:43 PM
*Subject:* [R-br] Usar R p/ importar informações da web

Olá, boa noite.

Como posso extrair uma parte de um texto de determinado site, utilizando
o R ?
É possível ? Existe algum material ?

Obrigado desde já.

Att Téo Calvo.

_______________________________________________
R-br mailing list
[email protected] <mailto:[email protected]>
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
[email protected]
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
[email protected]
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.

Responder a