require(tidyverse)
## Loading required package: tidyverse
## -- Attaching packages ------------------------------------------------------------------------------------------ tidyverse 1.2.1 --
## v ggplot2 2.2.1.9000     v purrr   0.2.4     
## v tibble  1.3.4          v dplyr   0.7.4     
## v tidyr   0.7.2          v stringr 1.2.0     
## v readr   1.1.1          v forcats 0.2.0
## -- Conflicts --------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
dr = tibble( file = dir( file.path( '..', 'POC_R' ) ) ) %>%
  mutate( path = file.path( '..', 'POC_R', file )
          , path = stringr::str_replace_all( path, ' ', '%20')
          , link =  paste0('<a  target=_blank href=', path, '>', file,'</a>' ) )


DT::datatable( select(dr, link) , escape = F)