library("R.utils")
pathname <- system.file("data-ex/HISTORY.LNK", package="R.utils")
lnk <- readWindowsShellLink(pathname)
str(lnk)
str(lnk$pathname)
lnk0 <- readWindowsShortcut(pathname)
str(lnk0$pathname)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.