knitr::opts_chunk$set(echo = TRUE)
require(tidyverse)

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)


erblast/oetteR documentation built on May 27, 2019, 12:11 p.m.