diff --git a/DESCRIPTION b/DESCRIPTION index d917cf1c..e51a6d88 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: qtl2 -Version: 0.34 -Date: 2023-11-28 +Version: 0.35-1 +Date: 2024-03-15 Title: Quantitative Trait Locus Mapping in Experimental Crosses Description: Provides a set of tools to perform quantitative trait locus (QTL) analysis in experimental crosses. It is a @@ -43,5 +43,5 @@ LazyData: true Encoding: UTF-8 ByteCompile: true LinkingTo: Rcpp, RcppEigen -RoxygenNote: 7.2.3 +RoxygenNote: 7.3.1 Roxygen: list(markdown=TRUE) diff --git a/NEWS.md b/NEWS.md index e140f6fe..f1aaa782 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,10 @@ +## qtl2 0.35-1 (2024-03-15) + +### Bug fixes + +- Fixed a problem with `sdp_panel=TRUE` in `plot_snpasso()`. (Issue #232) + + ## qtl2 0.34 (2023-11-28) ### Major changes diff --git a/R/plot_snpasso_and_sdp.R b/R/plot_snpasso_and_sdp.R index e32d10d9..925a7144 100644 --- a/R/plot_snpasso_and_sdp.R +++ b/R/plot_snpasso_and_sdp.R @@ -45,7 +45,7 @@ plot_snpasso_and_sdp <- } if(is.na(drop_hilit)) drop_hilit <- Inf snps2show <- rownames(scan1output)[max(scan1output[,1]) - scan1output[,1] <= drop_hilit] - snpinfo_sub <- snpinfo[snpinfo$snp_id %in% snps2show,,drop=FALSE] + snpinfo_sub <- snpinfo[snpinfo$snp %in% snps2show,,drop=FALSE] par(mar=top_mar) plot_sdp(snpinfo_sub$pos, snpinfo_sub$sdp, strain_labels=strain_labels, diff --git a/R/plot_snpasso_sdp_and_genes.R b/R/plot_snpasso_sdp_and_genes.R index 58cc8c6f..6ff9f471 100644 --- a/R/plot_snpasso_sdp_and_genes.R +++ b/R/plot_snpasso_sdp_and_genes.R @@ -43,7 +43,7 @@ plot_snpasso_sdp_genes <- } if(is.na(drop_hilit)) drop_hilit <- Inf snps2show <- rownames(scan1output)[max(scan1output[,1]) - scan1output[,1] <= drop_hilit] - snpinfo_sub <- snpinfo[snpinfo$snp_id %in% snps2show,,drop=FALSE] + snpinfo_sub <- snpinfo[snpinfo$snp %in% snps2show,,drop=FALSE] par(mar=top_mar) plot_sdp(snpinfo_sub$pos, snpinfo_sub$sdp, strain_labels=strain_labels,