Programação literada e R markdown

Programação literada é a tradução livre do termo em inglês literate programming, que significa criar documentos que são possíveis de serem lidos tanto por humanos quanto por máquinas (computadores). No contexto deste curso, programação literada significa basicamente a possibilidade de misturar em um mesmo documento textos e pedaços de códigos.

Se ainda é muito abstrato este conceito, um exemplo de textos produzidos usando programação literada é… este texto que você lê nesse momento. Ao longo de todo o curso vimos textos misturados com pedaços de código, de modo que a cada vez que precisasse acessar um código e o significado do que ele faz você pode encontrar tudo em um mesmo lugar.

R markdown

R markdown é, nas palavras dos próprios criadores, um conjunto de ferramentas que possibilita produzir documentos que seguem as bases do literate programming. O R markdown pode ser utilizado tanto para a simples produção de documentos onde incluímos códigos no meio para nossa própria conveniência, como para produzir documentos em outros formatos (html, docx, latex etc) para estender a comunicação dos achados científicos (ou produzir um blog).

Portanto, podemos dizer, de maneira geral, que o R markdown possibilita a produção de documentos em linguagens que nós nem sabemos escrever (e.g. não sei escrever em html, consigo produzir sites a partir de Rmarkdow). Para quem gosta do famoso Guia do Mochileiro das Galáxias, o R markdown (juntamente com os pacotes knitr, pandoc) funciona como o peixe Babel, mesmo que você não fale uma dada língua, o peixe faz o trabalho de tradução para você. A vantagem é que com o R markdown não há nenhuma necessidade de colocar nada desagradável na orelha :)

R markdown é como um peixe Babel, ele faz você falar uma linguagem mesmo não sabendo

R markdown é como um peixe Babel, ele faz você falar uma linguagem mesmo não sabendo

Produzindo um documento R markdown

Para produzir um documento R markdown é extremamente simples. Basta clicar na parte superior do RStudio em File, depois New File e selecionar R Markdown. Isso vai fazer com que ele abra um documento R Markdown (.Rmd) numa nova aba do seu RStudio. Agora vamos ver os componentes de um Rmd

o documento yml

O yml é o regente do seu documento markdown. Nele vamos encontrar todas as instruções sobre o documento que estamos produzindo, incluindo o nome, a data, o autor e qual será o documento que será gerado a partir daquele .Rmd. Nesse caso, como podemos ver na figura abaixo, o yml é bem simples, e derá origem a um documento no formato .html

O yml pode ser simples como o que vimos anteriormente, ou pode ser mais complicado, com mais elementos, tal como o yml que passa as instruções para construir o site deste material

De maneira geral, o importante é entender que o yml é o elemento que rege a forma que o documento será construído. Para sites (o motivo pelo qual eu mais uso o R markdown), o output no formato html_document já é suficiente.

chuncks de código

A imagem abaixo oferece um bom exemplo do que são chunks

Um exemplo de chunks, mas não como você está pensando

Um exemplo de chunks, mas não como você está pensando

Nesta imagem acima os pedaços de chocolate inseridos no meio da massa de cookie são chamados em inglês de chunks. Da mesma forma, mas menos saborosa (ou tão saboroso quanto, não para o estômago), os códigos embebidos no meio de pedaços de texto são chamados de chunks.

Para gerar chuncks de códigos você pode usar um atalho no teclado que é Cmd + option + I (nos computadores Mac), ou Crtl + option + I (nos computadores Windows)

um chunck como esse vai aparecer

knitr::include_graphics("figs/rmarkdown-chunck.png")

Os dois pedaços indicados com setas no meio do texto são os chunks de código, repare que eles apresentam “argumentos” depois da letra r, esses argumentos são instruções para dizer como o código vai aparecer no texto final (que será produzido em formato .html neste caso). Alguns argumentos importantes:

  • echo é um argumento lógico, se TRUE indica que o código deve aparecer no documento gerado, se FALSE indica que o código deve ser ocultado

  • eval argumento lógico, se TRUE quer dizer que o chunk deve ser avaliado, se FALSE ele não rodará

Estes são os argumentos mais importantes geralmente dentro de um chunk. Outros argumentos existem, você pode checar eles ao inserir um chunk e dentro dele apertar a tecla Tab do seu computador no RStudio. Uma lista com todos os argumentos possíveis vai aparecer.

Renderizando

Após finalizado o documento, ou se você quer ver o resultado parcial, precisamos renderizar o documento. Isso é feito utilizando a função knit do pacote {knitr}. Isso pode ser feito através do console

library(knitr)
knit()

Ou ainda pode ser feito direto no RStudio clicando no botão knit na parte superior do RStudio, como mostrado na figura abaixo

knitr::include_graphics("figs/rmarkdown-knit-button.png")

Ao clicar no botão Knit o RStudio renderizará o documento R Markdown para o formato estipulado no cabeçalho yml. Uma janela irá se abrir com a demonstração do documento renderizado.

Documentos em R markdown auxiliam no processo de tornar a pesquisa mais aberta e reprodutível, pois oferecem a possibilidade de produzir documentos altamente explicativos com textos e códigos, que podem ser utilizados posteriormente como suplemento para artigos ou ainda para comunicar com seus colaboradores durante a elaboração de um estudo. Para finalizar essa seção, um vídeo lembrando a importância da reprodutibilidade em pesquisa.

LS0tCnRpdGxlOiAiUiBtYXJrZG93biIKYXV0aG9yOiAiR2FicmllbCBOYWthbXVyYSIKZGF0ZTogImByIFN5cy5EYXRlKClgIgpvdXRwdXQ6IGh0bWxfZG9jdW1lbnQKLS0tCgpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQpgYGAKCiMgUHJvZ3JhbWHDp8OjbyBsaXRlcmFkYSBlIFIgbWFya2Rvd24KClByb2dyYW1hw6fDo28gbGl0ZXJhZGEgw6kgYSB0cmFkdcOnw6NvIGxpdnJlIGRvIHRlcm1vIGVtIGluZ2zDqnMgKmxpdGVyYXRlIHByb2dyYW1taW5nKiwgcXVlIHNpZ25pZmljYSBjcmlhciBkb2N1bWVudG9zIHF1ZSBzw6NvIHBvc3PDrXZlaXMgZGUgc2VyZW0gbGlkb3MgdGFudG8gcG9yIGh1bWFub3MgcXVhbnRvIHBvciBtw6FxdWluYXMgKGNvbXB1dGFkb3JlcykuIE5vIGNvbnRleHRvIGRlc3RlIGN1cnNvLCBwcm9ncmFtYcOnw6NvIGxpdGVyYWRhIHNpZ25pZmljYSBiYXNpY2FtZW50ZSBhIHBvc3NpYmlsaWRhZGUgZGUgbWlzdHVyYXIgZW0gdW0gbWVzbW8gZG9jdW1lbnRvIHRleHRvcyBlIHBlZGHDp29zIGRlIGPDs2RpZ29zLgoKU2UgYWluZGEgw6kgbXVpdG8gYWJzdHJhdG8gZXN0ZSBjb25jZWl0bywgdW0gZXhlbXBsbyBkZSB0ZXh0b3MgcHJvZHV6aWRvcyB1c2FuZG8gcHJvZ3JhbWHDp8OjbyBsaXRlcmFkYSDDqS4uLiBlc3RlIHRleHRvIHF1ZSB2b2PDqiBsw6ogbmVzc2UgbW9tZW50by4gQW8gbG9uZ28gZGUgdG9kbyBvIGN1cnNvIHZpbW9zIHRleHRvcyBtaXN0dXJhZG9zIGNvbSBwZWRhw6dvcyBkZSBjw7NkaWdvLCBkZSBtb2RvIHF1ZSBhIGNhZGEgdmV6IHF1ZSBwcmVjaXNhc3NlIGFjZXNzYXIgdW0gY8OzZGlnbyBlIG8gc2lnbmlmaWNhZG8gZG8gcXVlIGVsZSBmYXogdm9jw6ogcG9kZSBlbmNvbnRyYXIgdHVkbyBlbSB1bSBtZXNtbyBsdWdhci4KCiMgUiBtYXJrZG93biAKClIgbWFya2Rvd24gw6ksIG5hcyBwYWxhdnJhcyBkb3MgcHLDs3ByaW9zIGNyaWFkb3JlcywgdW0gY29uanVudG8gZGUgZmVycmFtZW50YXMgcXVlIHBvc3NpYmlsaXRhIHByb2R1emlyIGRvY3VtZW50b3MgcXVlIHNlZ3VlbSBhcyBiYXNlcyBkbyBsaXRlcmF0ZSBwcm9ncmFtbWluZy4gTyBSIG1hcmtkb3duIHBvZGUgc2VyIHV0aWxpemFkbyB0YW50byBwYXJhIGEgc2ltcGxlcyBwcm9kdcOnw6NvIGRlIGRvY3VtZW50b3Mgb25kZSBpbmNsdcOtbW9zIGPDs2RpZ29zIG5vIG1laW8gcGFyYSBub3NzYSBwcsOzcHJpYSBjb252ZW5pw6puY2lhLCBjb21vIHBhcmEgcHJvZHV6aXIgZG9jdW1lbnRvcyBlbSBvdXRyb3MgZm9ybWF0b3MgKGh0bWwsIGRvY3gsIGxhdGV4IGV0YykgcGFyYSBlc3RlbmRlciBhIGNvbXVuaWNhw6fDo28gZG9zIGFjaGFkb3MgY2llbnTDrWZpY29zIChvdSBwcm9kdXppciB1bSBibG9nKS4KClBvcnRhbnRvLCBwb2RlbW9zIGRpemVyLCBkZSBtYW5laXJhIGdlcmFsLCBxdWUgbyBSIG1hcmtkb3duIHBvc3NpYmlsaXRhIGEgcHJvZHXDp8OjbyBkZSBkb2N1bWVudG9zIGVtIGxpbmd1YWdlbnMgcXVlIG7Ds3MgbmVtIHNhYmVtb3MgZXNjcmV2ZXIgKGUuZy4gbsOjbyBzZWkgZXNjcmV2ZXIgZW0gaHRtbCwgY29uc2lnbyBwcm9kdXppciBzaXRlcyBhIHBhcnRpciBkZSBSbWFya2RvdykuIFBhcmEgcXVlbSBnb3N0YSBkbyBmYW1vc28gR3VpYSBkbyBNb2NoaWxlaXJvIGRhcyBHYWzDoXhpYXMsIG8gUiBtYXJrZG93biAoanVudGFtZW50ZSBjb20gb3MgcGFjb3RlcyBga25pdHJgLCBgcGFuZG9jYCkgZnVuY2lvbmEgY29tbyBvIHBlaXhlIEJhYmVsLCBtZXNtbyBxdWUgdm9jw6ogbsOjbyBmYWxlIHVtYSBkYWRhIGzDrW5ndWEsIG8gcGVpeGUgZmF6IG8gdHJhYmFsaG8gZGUgdHJhZHXDp8OjbyBwYXJhIHZvY8OqLiBBIHZhbnRhZ2VtIMOpIHF1ZSBjb20gbyBSIG1hcmtkb3duIG7Do28gaMOhIG5lbmh1bWEgbmVjZXNzaWRhZGUgZGUgY29sb2NhciBuYWRhIGRlc2FncmFkw6F2ZWwgbmEgb3JlbGhhIDopCgpgYGB7ciBlY2hvPUZBTFNFLGV2YWw9VFJVRSxmaWcuY2FwPSJSIG1hcmtkb3duIMOpIGNvbW8gdW0gcGVpeGUgQmFiZWwsIGVsZSBmYXogdm9jw6ogZmFsYXIgdW1hIGxpbmd1YWdlbSBtZXNtbyBuw6NvIHNhYmVuZG8ifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZmlncy9iYWJlbGZpc2guanBlZyIpCmBgYAoKIyMgUHJvZHV6aW5kbyB1bSBkb2N1bWVudG8gUiBtYXJrZG93bgoKUGFyYSBwcm9kdXppciB1bSBkb2N1bWVudG8gUiBtYXJrZG93biDDqSBleHRyZW1hbWVudGUgc2ltcGxlcy4gQmFzdGEgY2xpY2FyIG5hIHBhcnRlIHN1cGVyaW9yIGRvIFJTdHVkaW8gZW0gRmlsZSwgZGVwb2lzIE5ldyBGaWxlIGUgc2VsZWNpb25hciBSIE1hcmtkb3duLiBJc3NvIHZhaSBmYXplciBjb20gcXVlIGVsZSBhYnJhIHVtIGRvY3VtZW50byBSIE1hcmtkb3duICguUm1kKSBudW1hIG5vdmEgYWJhIGRvIHNldSBSU3R1ZGlvLiBBZ29yYSB2YW1vcyB2ZXIgb3MgY29tcG9uZW50ZXMgZGUgdW0gUm1kCgojIyMgbyBkb2N1bWVudG8geW1sCgpPIHltbCDDqSBvIHJlZ2VudGUgZG8gc2V1IGRvY3VtZW50byBtYXJrZG93bi4gTmVsZSB2YW1vcyBlbmNvbnRyYXIgdG9kYXMgYXMgaW5zdHJ1w6fDtWVzIHNvYnJlIG8gZG9jdW1lbnRvIHF1ZSBlc3RhbW9zIHByb2R1emluZG8sIGluY2x1aW5kbyBvIG5vbWUsIGEgZGF0YSwgbyBhdXRvciBlIHF1YWwgc2Vyw6EgbyBkb2N1bWVudG8gcXVlIHNlcsOhIGdlcmFkbyBhIHBhcnRpciBkYXF1ZWxlIC5SbWQuIE5lc3NlIGNhc28sIGNvbW8gcG9kZW1vcyB2ZXIgbmEgZmlndXJhIGFiYWl4bywgbyB5bWwgw6kgYmVtIHNpbXBsZXMsIGUgZGVyw6Egb3JpZ2VtIGEgdW0gZG9jdW1lbnRvIG5vIGZvcm1hdG8gLmh0bWwKCmBgYHtyIGVjaG89RkFMU0UsZXZhbD1UUlVFfQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZmlncy9ybWFya2Rvd24teW1sLnBuZyIpCmBgYAoKTyB5bWwgcG9kZSBzZXIgc2ltcGxlcyBjb21vIG8gcXVlIHZpbW9zIGFudGVyaW9ybWVudGUsIG91IHBvZGUgc2VyIG1haXMgY29tcGxpY2FkbywgY29tIG1haXMgZWxlbWVudG9zLCB0YWwgY29tbyBvIHltbCBxdWUgcGFzc2EgYXMgaW5zdHJ1w6fDtWVzIHBhcmEgY29uc3RydWlyIG8gc2l0ZSBkZXN0ZSBtYXRlcmlhbAoKYGBge3IgZWNobz1GQUxTRSxldmFsPVRSVUV9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJmaWdzL3JtYXJrZG93bi15bWwtbW9yZWNvbXBsaWNhdGVkLnBuZyIpCmBgYAoKRGUgbWFuZWlyYSBnZXJhbCwgbyBpbXBvcnRhbnRlIMOpIGVudGVuZGVyIHF1ZSBvIHltbCDDqSBvIGVsZW1lbnRvIHF1ZSByZWdlIGEgZm9ybWEgcXVlIG8gZG9jdW1lbnRvIHNlcsOhIGNvbnN0cnXDrWRvLiBQYXJhIHNpdGVzIChvIG1vdGl2byBwZWxvIHF1YWwgZXUgbWFpcyB1c28gbyBSIG1hcmtkb3duKSwgbyBvdXRwdXQgbm8gZm9ybWF0byBgaHRtbF9kb2N1bWVudGAgasOhIMOpIHN1ZmljaWVudGUuCgojIyMgY2h1bmNrcyBkZSBjw7NkaWdvCgpBIGltYWdlbSBhYmFpeG8gb2ZlcmVjZSB1bSBib20gZXhlbXBsbyBkbyBxdWUgc8OjbyAqKmNodW5rcyoqCgpgYGB7ciBlY2hvPUZBTFNFLGV2YWw9VFJVRSxmaWcuY2FwPSJVbSBleGVtcGxvIGRlIGNodW5rcywgbWFzIG7Do28gY29tbyB2b2PDqiBlc3TDoSBwZW5zYW5kbyIsb3V0LndpZHRoPSI2MCUifQprbml0cjo6aW5jbHVkZV9ncmFwaGljcygiZmlncy9jaHVuY2stY2hvY29sYXRlLmpwZWciKQpgYGAKCk5lc3RhIGltYWdlbSBhY2ltYSBvcyBwZWRhw6dvcyBkZSBjaG9jb2xhdGUgaW5zZXJpZG9zIG5vIG1laW8gZGEgbWFzc2EgZGUgY29va2llIHPDo28gY2hhbWFkb3MgZW0gaW5nbMOqcyBkZSBjaHVua3MuIERhIG1lc21hIGZvcm1hLCBtYXMgbWVub3Mgc2Fib3Jvc2EgKG91IHTDo28gc2Fib3Jvc28gcXVhbnRvLCBuw6NvIHBhcmEgbyBlc3TDtG1hZ28pLCBvcyBjw7NkaWdvcyBlbWJlYmlkb3Mgbm8gbWVpbyBkZSBwZWRhw6dvcyBkZSB0ZXh0byBzw6NvIGNoYW1hZG9zIGRlIGNodW5rcy4gCgpQYXJhIGdlcmFyIGNodW5ja3MgZGUgY8OzZGlnb3Mgdm9jw6ogcG9kZSB1c2FyIHVtIGF0YWxobyBubyB0ZWNsYWRvIHF1ZSDDqSBgQ21kYCArIGBvcHRpb25gICsgYElgIChub3MgY29tcHV0YWRvcmVzIE1hYyksIG91IGBDcnRsYCArIGBvcHRpb25gICsgYElgIChub3MgY29tcHV0YWRvcmVzIFdpbmRvd3MpCgp1bSBjaHVuY2sgY29tbyBlc3NlIHZhaSBhcGFyZWNlcgoKYGBge3IgZWNobz1UUlVFLGV2YWw9VFJVRX0Ka25pdHI6OmluY2x1ZGVfZ3JhcGhpY3MoImZpZ3Mvcm1hcmtkb3duLWNodW5jay5wbmciKQpgYGAKCk9zIGRvaXMgcGVkYcOnb3MgaW5kaWNhZG9zIGNvbSBzZXRhcyBubyBtZWlvIGRvIHRleHRvIHPDo28gb3MgY2h1bmtzIGRlIGPDs2RpZ28sIHJlcGFyZSBxdWUgZWxlcyBhcHJlc2VudGFtICJhcmd1bWVudG9zIiBkZXBvaXMgZGEgbGV0cmEgYHJgLCBlc3NlcyBhcmd1bWVudG9zIHPDo28gaW5zdHJ1w6fDtWVzIHBhcmEgZGl6ZXIgY29tbyBvIGPDs2RpZ28gdmFpIGFwYXJlY2VyIG5vIHRleHRvIGZpbmFsIChxdWUgc2Vyw6EgcHJvZHV6aWRvIGVtIGZvcm1hdG8gLmh0bWwgbmVzdGUgY2FzbykuIEFsZ3VucyBhcmd1bWVudG9zIGltcG9ydGFudGVzOgoKLSBgZWNob2Agw6kgdW0gYXJndW1lbnRvIGzDs2dpY28sIHNlIGBUUlVFYCBpbmRpY2EgcXVlIG8gY8OzZGlnbyBkZXZlIGFwYXJlY2VyIG5vIGRvY3VtZW50byBnZXJhZG8sIHNlIGBGQUxTRWAgaW5kaWNhIHF1ZSBvIGPDs2RpZ28gZGV2ZSBzZXIgb2N1bHRhZG8KCi0gYGV2YWxgIGFyZ3VtZW50byBsw7NnaWNvLCBzZSBgVFJVRWAgcXVlciBkaXplciBxdWUgbyBjaHVuayBkZXZlIHNlciBhdmFsaWFkbywgc2UgYEZBTFNFYCBlbGUgbsOjbyByb2RhcsOhCgpFc3RlcyBzw6NvIG9zIGFyZ3VtZW50b3MgbWFpcyBpbXBvcnRhbnRlcyBnZXJhbG1lbnRlIGRlbnRybyBkZSB1bSBjaHVuay4gT3V0cm9zIGFyZ3VtZW50b3MgZXhpc3RlbSwgdm9jw6ogcG9kZSBjaGVjYXIgZWxlcyBhbyBpbnNlcmlyIHVtIGNodW5rIGUgZGVudHJvIGRlbGUgYXBlcnRhciBhIHRlY2xhIGBUYWJgIGRvIHNldSBjb21wdXRhZG9yIG5vIFJTdHVkaW8uIFVtYSBsaXN0YSBjb20gdG9kb3Mgb3MgYXJndW1lbnRvcyBwb3Nzw612ZWlzIHZhaSBhcGFyZWNlci4KCiMjIyBSZW5kZXJpemFuZG8gCgpBcMOzcyBmaW5hbGl6YWRvIG8gZG9jdW1lbnRvLCBvdSBzZSB2b2PDqiBxdWVyIHZlciBvIHJlc3VsdGFkbyBwYXJjaWFsLCBwcmVjaXNhbW9zIHJlbmRlcml6YXIgbyBkb2N1bWVudG8uIElzc28gw6kgZmVpdG8gdXRpbGl6YW5kbyBhIGZ1bsOnw6NvIGBrbml0YCBkbyBwYWNvdGUgYHtrbml0cn1gLiBJc3NvIHBvZGUgc2VyIGZlaXRvIGF0cmF2w6lzIGRvIGNvbnNvbGUKCmBgYHtyIGVjaG89VFJVRSxldmFsPUZBTFNFfQpsaWJyYXJ5KGtuaXRyKQprbml0KCkKYGBgCgpPdSBhaW5kYSBwb2RlIHNlciBmZWl0byBkaXJldG8gbm8gUlN0dWRpbyBjbGljYW5kbyBubyBib3TDo28ga25pdCBuYSBwYXJ0ZSBzdXBlcmlvciBkbyBSU3R1ZGlvLCBjb21vIG1vc3RyYWRvIG5hIGZpZ3VyYSBhYmFpeG8KCmBgYHtyIGVjaG89VFJVRSxldmFsPVRSVUV9CmtuaXRyOjppbmNsdWRlX2dyYXBoaWNzKCJmaWdzL3JtYXJrZG93bi1rbml0LWJ1dHRvbi5wbmciKQpgYGAKCkFvIGNsaWNhciBubyBib3TDo28gS25pdCBvIFJTdHVkaW8gcmVuZGVyaXphcsOhIG8gZG9jdW1lbnRvIFIgTWFya2Rvd24gcGFyYSBvIGZvcm1hdG8gZXN0aXB1bGFkbyBubyBjYWJlw6dhbGhvIHltbC4gVW1hIGphbmVsYSBpcsOhIHNlIGFicmlyIGNvbSBhIGRlbW9uc3RyYcOnw6NvIGRvIGRvY3VtZW50byByZW5kZXJpemFkby4KCkRvY3VtZW50b3MgZW0gUiBtYXJrZG93biBhdXhpbGlhbSBubyBwcm9jZXNzbyBkZSB0b3JuYXIgYSBwZXNxdWlzYSBtYWlzIGFiZXJ0YSBlIHJlcHJvZHV0w612ZWwsIHBvaXMgb2ZlcmVjZW0gYSBwb3NzaWJpbGlkYWRlIGRlIHByb2R1emlyIGRvY3VtZW50b3MgYWx0YW1lbnRlIGV4cGxpY2F0aXZvcyBjb20gdGV4dG9zIGUgY8OzZGlnb3MsIHF1ZSBwb2RlbSBzZXIgdXRpbGl6YWRvcyBwb3N0ZXJpb3JtZW50ZSBjb21vIHN1cGxlbWVudG8gcGFyYSBhcnRpZ29zIG91IGFpbmRhIHBhcmEgY29tdW5pY2FyIGNvbSBzZXVzIGNvbGFib3JhZG9yZXMgZHVyYW50ZSBhIGVsYWJvcmHDp8OjbyBkZSB1bSBlc3R1ZG8uIFBhcmEgZmluYWxpemFyIGVzc2Egc2XDp8OjbywgdW0gdsOtZGVvIGxlbWJyYW5kbyBhIGltcG9ydMOibmNpYSBkYSByZXByb2R1dGliaWxpZGFkZSBlbSBwZXNxdWlzYS4KCmBgYHtyIGVjaG89RkFMU0UsZXZhbD1UUlVFfQp2ZW1iZWRyOjplbWJlZF91cmwoImh0dHBzOi8vd3d3LnlvdXR1YmUuY29tL3dhdGNoP3Y9N2dZSXM3dVliTW8iKQpgYGAKCgo=