data.Rmd

---
title: "data"
output: html_document
---
<!-- BANNER --> 
</div> <!-- container-fluid main-container -->
<div class="jumbotron homepagebanner jumbotron-fluid">
<div class="container">
## PANDEMIC SYSTEMS GROUP<br>**Data** {.lead}
</div> <!--end container-->
</div> <!--end jumbotron-->

<!-- MAIN CONTENT --> 
<div class="container-fluid main-container">

### Data sources

Curated data sources will be made available here.
<!--
```{r,setup,echo=FALSE,include=TRUE,results="asis"}

## Data on the publications is  available here: 


# DT::datatable(mtcars[1:10 ,1:4])

# get a list of all the files in the folder
file_list <- list.files(path = "updates", full.names = TRUE)

# initialize a data frame to store the file information
df <- data.frame(filename = character(),
                 date_created = character(),
                 stringsAsFactors = TRUE)

# loop through the files in the folder
for (file in file_list) {
  # get the file name
  file_name <- as.character(file)

  # get the date created $mtime determines the time for the modification
  date_created <- as.character(file.info(file)$mtime)

  # add the file information to the data frame
  df <- rbind(df, data.frame(filename = file_name,
                             date_created = date_created,
                             stringsAsFactors = FALSE))
}

# data frame in decreasing order of date
df <- df[order(df$date_created,decreasing= TRUE),]

#displaying the latest
# cat(htmltools::includeMarkdown(df[3,1]))
```
-->

### Code

Data and code for our demonstration projects will be made available here:

<p>
  <a href="https://github.com/pandemicsystems/" taget="_blank">
  <img src="images/GitHub-Mark-64px.png" id="github-icon" alt="GitHub organization"/>
  GitHub.com/PandemicSystems
  </a>
</p>
  
&nbsp;

<!---to make the boxes disappear--->
<!-- <style> -->
<!--     pre { -->
<!--         border: 0; -->
<!--     } -->
<!-- </style> -->