---
output:
html_document:
css: 'whatsapp_style.css'
---
```{r whatsapp, include=TRUE, echo=FALSE, warning=FALSE,message=FALSE, results='asis'}
require(shiny)
require(tidyverse)
file.zap <- "conversa_whatsapp.txt"
zap <- read.delim(file.zap,header = FALSE)
zap <- zap %>% mutate(
hora = str_extract(V1,"(?<=\\[).*(?=\\])"),
pessoa = str_squish(str_extract(V1,"(?<=\\])[^:]*(?=:)")),
texto = str_squish(str_extract(V1,"(?<=(h|a):).*$"))
) %>% select(-V1)
gerar_zap <- function(hora,pessoa,texto){
if (str_detect(texto,fixed("http://www."))){
texto <- a(href=texto,texto,target="_blank")
}
div(class=paste0("zap ",ifelse(pessoa == "Amiga","amiga","neale")),
div(paste0(pessoa," ",hora),class="zap_pessoa"),
div(texto,class="zap_texto")
)
}
zap_html <- div(class="zap_container",pmap(zap,gerar_zap))
zap_html
```