Skip to content

Commit 9d5d86d

Browse files
committed
A few fixes to issues brought up by R CMD check.
1 parent 5f69da7 commit 9d5d86d

4 files changed

Lines changed: 7 additions & 6 deletions

File tree

DESCRIPTION

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
Encoding: UTF-8
22
Type: Package
33
Package: fastTopics
4-
Version: 0.7-29
4+
Version: 0.7-30
55
Date: 2025-10-17
66
Title: Fast Algorithms for Fitting Topic Models and Non-Negative
77
Matrix Factorizations to Count Data

NAMESPACE

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -74,7 +74,6 @@ importFrom(ashr,ash)
7474
importFrom(cowplot,plot_grid)
7575
importFrom(cowplot,theme_cowplot)
7676
importFrom(dplyr,select)
77-
importFrom(ggplot2,aes)
7877
importFrom(ggplot2,aes_q)
7978
importFrom(ggplot2,aes_string)
8079
importFrom(ggplot2,after_stat)

R/annotation_heatmap.R

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -209,7 +209,7 @@ get_distinctive_features <-
209209
#' @importFrom stats quantile
210210
#' @importFrom reshape2 melt
211211
#' @importFrom ggplot2 ggplot
212-
#' @importFrom ggplot2 aes
212+
#' @importFrom ggplot2 aes_string
213213
#' @importFrom ggplot2 geom_point
214214
#' @importFrom ggplot2 scale_size
215215
#' @importFrom ggplot2 scale_fill_manual
@@ -235,8 +235,10 @@ effect_heatmap <- function (effects_matrix, zero_value, font_size) {
235235
dot_colors <- c("navy","gray","orangered")
236236
else
237237
dot_colors <- c("navy","gray","black")
238-
return(ggplot(pdat,aes(x = dim,y = feature_name,size = effect_size,
239-
fill = effect_sign)) +
238+
return(ggplot(pdat,aes_string(x = "dim",
239+
y = "feature_name",
240+
size = "effect_size",
241+
fill = "effect_sign")) +
240242
geom_point(color = "white",shape = 21,na.rm = TRUE) +
241243
scale_size(range = c(1,6),breaks = effect_size_breaks,
242244
labels = round(effect_size_breaks,digits = 3)) +

R/fit_poisson_nmf.R

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -455,7 +455,7 @@ fit_poisson_nmf <- function (X, k, fit0, numiter = 100,
455455
cat(sprintf("Running at most %d %s updates, %s extrapolation ",
456456
numiter,method.text,
457457
ifelse(control$extrapolate,"with","without")))
458-
cat("(fastTopics 0.7-29).\n")
458+
cat("(fastTopics 0.7-30).\n")
459459
}
460460

461461
# INITIALIZE ESTIMATES

0 commit comments

Comments
 (0)