From a17ce7479d0d7486ea1377c896d35e12655af60f Mon Sep 17 00:00:00 2001
From: Samuel Gratzl <sam@sgratzl.com>
Date: Wed, 10 Nov 2021 09:49:39 -0500
Subject: [PATCH] fix: examples

---
 R/attributes.R | 3 ++-
 R/dash.R       | 2 +-
 R/upsetjs.R    | 3 ++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/R/attributes.R b/R/attributes.R
index 0f4f3ed..312b444 100644
--- a/R/attributes.R
+++ b/R/attributes.R
@@ -19,7 +19,8 @@ cleanAttrName <- function(col) {
 #' @examples
 #' upsetjs() %>%
 #'   fromList(list(a = c(1, 2, 3), b = c(2, 3))) %>%
-#'   setAttributes(list(attr = runif(3), cat = as.factor(sample(c("male", "female"), 3, replace = TRUE))))
+#'   setAttributes(list(attr = runif(3),
+#'                      cat = as.factor(sample(c("male", "female"), 3, replace = TRUE))))
 #' @export
 setAttributes <- function(upsetjs, attrs = list()) {
   checkUpSetCommonArgument(upsetjs)
diff --git a/R/dash.R b/R/dash.R
index cf12016..1ab9f01 100644
--- a/R/dash.R
+++ b/R/dash.R
@@ -13,7 +13,7 @@
 #' @param height upestjs height
 #' @return the set object
 #' @examples
-#' upestjsDash("u") %>% fromList(list(a = c(1, 2, 3), b = c(2, 3)))
+#' upsetjsDash("u") %>% fromList(list(a = c(1, 2, 3), b = c(2, 3)))
 #' @export
 upsetjsDash <- function(children = NULL, id = NULL, width = NULL, height = NULL) {
   props <- list(
diff --git a/R/upsetjs.R b/R/upsetjs.R
index e900df1..7118225 100644
--- a/R/upsetjs.R
+++ b/R/upsetjs.R
@@ -14,7 +14,8 @@
 #' @param ... all other arguments supplied to \code{htmlwidgets::\link[htmlwidgets]{sizingPolicy}}
 #' @return An \code{htmlwidgets::sizingPolicy} object
 #' @examples
-#' upsetjs(sizingPolicy = upsetjsSizingPolicy(padding = 20)) %>% fromList(list(a = c(1, 2, 3), b = c(2, 3)))
+#' upsetjs(sizingPolicy = upsetjsSizingPolicy(padding = 20)) %>%
+#'  fromList(list(a = c(1, 2, 3), b = c(2, 3)))
 #' @importFrom htmlwidgets sizingPolicy
 #'
 #' @export