Portuguesa.Rmd

---
title: "Overview Portuguese Progress"
output: html_document
---

[003 Brazilian Portuguese survey link](https://unf.co1.qualtrics.com/jfe/form/SV_eRsPzaFSS4fLKeN?Q_Language=PT-BR)

```{r portuguese, results = 'asis', echo = FALSE}

for (LAB in lab_info$PSA_ID[lab_info$Language == "Portuguese"])
{
    cat(LAB, "<p>")
    
    #only print if they have something 
    if (length(lab_seq[grep(lab_seq, pattern=LAB)]) > 0){
    lab_seq[grep(lab_seq, pattern=LAB)] %>% read.csv() %>%
    seq_plot()} else {cat("TBA")}
    
    cat("<p>")
}

```