List of link to files in 2 level directory, useable in Markdown

list_files_mardown.R

```{r results='asis'}
for (f in list.files()){
    if(file.info(f)$isdir){
        l <- c(f, paste0(f,"/",list.files(f)))
        cat(paste0("* [",c(f, list.files(f)),"]","(",l,")\n"))
        }    
    }
```