add ssm_plot_curve

NAMESPACE

@@ -6,7 +6,9 @@ S3method(as_degree,default)
 S3method(as_radian,circumplex_degree)
 S3method(as_radian,circumplex_radian)
 S3method(as_radian,default)
+S3method(print,circumplex_degree)
 S3method(print,circumplex_instrument)
+S3method(print,circumplex_radian)
 S3method(print,circumplex_ssm)
 S3method(quantile,circumplex_radian)
 S3method(summary,circumplex_instrument)
@@ -30,6 +32,7 @@ export(ssm_analyze)
 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)

R/ssm_oop.R

@@ -85,6 +85,20 @@ as_radian.circumplex_degree <- function(x, ...) {
   new_radian(x * (pi / 180))
 }
 
+# S3 Method
+#' @method print circumplex_degree
+#' @export
+print.circumplex_degree <- function(x, digits = 3, ...) {
+  cat(round(x, digits = digits), "\nDegrees\n")
+}
+
+# S3 Method
+#' @method print circumplex_radian
+#' @export
+print.circumplex_radian <- function(x, digits = 3, ...) {
+  cat(round(x, digits = digits), "\nRadians\n")
+}
+
 # Class ssm --------------------------------------------------------------------
 
 # S3 Constructor