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

[Alisson Lucrecio]

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":"alissonluc em yahoo.com.br", "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 <teocalvo2 em gmail.com>
To: r-br em listas.c3sl.ufpr.br 
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
R-br em 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/20131002/9a2e83a1/attachment.html>