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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.