#' @export
plink_version <- function(){
plink_v <- gsub(".*v(\\S..).*", "\\1", system('plink --version', T))
if (plink_v >= 1.9) {
plink_v <- "plink"
} else {
plink_v <- "plink --noweb"
}
return(plink_v)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.