#load("data/x_rn.RData")
#load("data/x_cn.RData")
#load("data/x_svg.RData")
s<-system.file("extdata","x_htgm.svg",package="HTGM")
# need to avoid writing to "extdata"
dir<-tempdir()
file.copy(from=s, to=dir)
hyperlinkedFileName<-hyperlinks(sprintf("%s/%s",dir,"x_htgm.svg"),x_rn,x_cn)
print("hyperlinkedFileName")
print(hyperlinkedFileName)
Run the code above in your browser using DataLab