stackoverflow.R

if(!require(qtlcharts)) {
    library(devtools)
    install_github("kbroman/qtlcharts")
    library(qtlcharts)
}
library(qtl)
library(htmlwidgets)

data(grav)
grav$pheno <- grav$pheno
grav <- calc.genoprob(grav)
out <- scanone(grav, phe=1:nphe(grav), method="hk")

# this is okay
out_plot1 <- iplotMScanone(out, lodcolumn=1:103)
saveWidget(out_plot1, file="tmp1.html")

# this is okay
out_plot2 <- iplotMScanone(out, lodcolumn=137:241)
saveWidget(out_plot2, file="tmp2.html")

# this gives "stack space overflow"
out_plot3 <- iplotMScanone(out, lodcolumn=1:104)
saveWidget(out_plot3, file="tmp3.html")

# this gives "stack space overflow"
out_plot4 <- iplotMScanone(out, lodcolumn=136:241)
saveWidget(out_plot4, file="tmp4.html")