Skip to content

Commit

Permalink
temp
Browse files Browse the repository at this point in the history
  • Loading branch information
wolski committed Sep 3, 2024
1 parent dcb1333 commit 019b0b5
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 2 deletions.
6 changes: 5 additions & 1 deletion R/utilities.R
Original file line number Diff line number Diff line change
Expand Up @@ -460,7 +460,11 @@ panel_cor <- function(x, y, digits = 2, ...)
#' pairs_smooth(tmp,log="xy",main="small data", legend=TRUE)
#' @seealso also \code{\link{pairs}}
pairs_smooth <- function(data, legend = FALSE, ...) {

non_na_counts <- apply(data, 2, function(x) sum(!is.na(x)))
min_col <- which(non_na_counts < 2)
if(length(min_col) >= 1){
data <- data[, -min_col, drop = FALSE]
}
pairs(
data,
upper.panel = function(x, y) {
Expand Down
2 changes: 1 addition & 1 deletion man/LFQDataPlotter.Rd

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

0 comments on commit 019b0b5

Please sign in to comment.