troubleshoot cran errors

DESCRIPTION

@@ -36,6 +36,7 @@ Imports:
     ggplot2 (>= 3.3.0),
     htmlTable (>= 1.13.3),
     Rcpp,
+    rlang,
     stats
 Suggests: 
     covr (>= 3.5.0),

NAMESPACE

@@ -33,13 +33,10 @@ export(ssm_parameters)
 export(ssm_plot_circle)
 export(ssm_plot_contrast)
 export(ssm_plot_curve)
-export(ssm_plot_scores)
 export(ssm_score)
 export(ssm_table)
 importFrom(Rcpp,sourceCpp)
 importFrom(ggplot2,ggsave)
-importFrom(stats,cor)
+importFrom(rlang,.data)
 importFrom(stats,quantile)
-importFrom(stats,sd)
-importFrom(stats,var)
 useDynLib(circumplex, .registration = TRUE)

R/circumplex-package.R

@@ -22,6 +22,7 @@
 #' @importFrom Rcpp sourceCpp
 #' @useDynLib circumplex, .registration = TRUE
 ## usethis namespace: end
-#' @importFrom stats cor quantile sd var
+#' @importFrom rlang .data
+#' @importFrom stats quantile
 #' @keywords internal
 "_PACKAGE"

R/instrument_data.R

@@ -1,3 +1,19 @@
+#' Child and Adolescent Interpersonal Survey
+#'
+#' Information about the Child and Adolescent Interpersonal Survey (CAIS).
+#'
+#' @source Sodano, S. M., & Tracey, T. J. G. (2006). Interpersonal traits in
+#'   childhood: Development of the Child and Adolescent Interpersonal Survey.
+#'   *Journal of Personality Assessment, 87*(3), 317–329.
+#' @source \doi{10.1207/s15327752jpa8703_12}
+#' @keywords internal
+#' @examples
+#' instrument("cais")
+#' summary(cais)
+#' scales(cais, items = TRUE)
+"cais"
+
+
 #' Circumplex Scales of Interpersonal Efficacy
 #'
 #' Information about the Circumplex Scales of Interpersonal Efficacy (CSIE).

R/instrument_oop.R

@@ -61,7 +61,7 @@ summary.circumplex_instrument <- function(object, scales = TRUE, anchors = TRUE,
 #' @family instrument functions
 #' @export
 #' @examples
-#' instrument(csip)
+#' instrument("csip")
 #' scales(csip)
 #' scales(csip, items = TRUE)
 scales <- function(x, items = FALSE) {
@@ -97,7 +97,7 @@ scales <- function(x, items = FALSE) {
 #' @family instrument functions
 #' @export
 #' @examples
-#' instrument(csip)
+#' instrument("csip")
 #' items(csip)
 items <- function(x) {
   stopifnot(is_instrument(x))
@@ -130,7 +130,7 @@ items <- function(x) {
 #' @family instrument functions
 #' @export
 #' @examples
-#' instrument(csip)
+#' instrument("csip")
 #' anchors(csip)
 anchors <- function(x) {
   stopifnot(is_instrument(x))
@@ -158,7 +158,7 @@ anchors <- function(x) {
 #' @family instrument functions
 #' @export
 #' @examples
-#' instrument(csip)
+#' instrument("csip")
 #' norms(csip)
 norms <- function(x) {
 

R/ssm_bootstrap.R

@@ -76,6 +76,6 @@ quantile.circumplex_radian <- function(x, na.rm = TRUE, ...) {
   tx <- (x - mdn) %% (2 * pi)
   tx <- compare_pi(tx)
   class(tx) <- "numeric"
-  qtl <- quantile(x = tx, na.rm = na.rm, ...)
+  qtl <- stats::quantile(x = tx, na.rm = na.rm, ...)
   as_radian((qtl + mdn) %% (2 * pi))
 }