Error with qplot_on_normal with docu example on R 4.0.x

[p0g]

Getting an Fehler: Aesthetics must be either length 1 or the same as the data (1): x on running the example code from: https://rdrr.io/github/rubenarslan/formr/man/qplot_on_normal.html

My Code:

devtools::install_github("rubenarslan/formr", force=TRUE)
library(formr)

normed_value = scale(x = 20, center = 14, scale = 5) # standardise value
qplot_on_normal(normed_value, xlab = "Extraversion")

SessionInfo:

> sessionInfo()
R version 4.0.2 (2020-06-22)
Platform: x86_64-pc-linux-gnu (64-bit)
Running under: Arch Linux

Matrix products: default
BLAS:   /usr/lib/libblas.so.3.9.0
LAPACK: /usr/lib/liblapack.so.3.9.0

locale:
 [1] LC_CTYPE=de_DE.UTF-8       LC_NUMERIC=C               LC_TIME=de_DE.UTF-8        LC_COLLATE=C               LC_MONETARY=de_DE.UTF-8    LC_MESSAGES=de_DE.UTF-8   
 [7] LC_PAPER=de_DE.UTF-8       LC_NAME=C                  LC_ADDRESS=C               LC_TELEPHONE=C             LC_MEASUREMENT=de_DE.UTF-8 LC_IDENTIFICATION=C       

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggplot2_3.3.2 formr_0.8.5   tibble_3.0.3 

[jnagler-git]

Das liegt an den Änderungen mit der aes Funktion. Der folgende Code funktioniert bei mir:

qplot_on_normal = function(normed_value,  ylab = "Percentage of other people with this value", 
						 xlab = '' , colour = "blue", x_ticks = c('--','-','0','+','++')) 
{
	ggplot(data.frame(x = c(-3, 3)), aes(x))+
  stat_function(fun = stats::dnorm,size = I(1)) + 
  geom_vline(xintercept= normed_value, colour= colour,size = I(1)) +
	scale_x_continuous(xlab, breaks = c(-2:2),labels = x_ticks) +
	scale_y_continuous(ylab, labels = scales::percent_format())+
	theme_minimal() + 
	theme(text = element_text(size = 18))
}