fix: examples

upsetjs · Nov 10, 2021 · a17ce74 · a17ce74
1 parent 447dd75
commit a17ce74
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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