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)