tidydocs

R/add_special_chars.R

@@ -10,6 +10,7 @@
 #' @export
 #' @examples
 #' add_special_chars(mtcars)
+
 add_special_chars <- function(data,
                               cols = NULL,
                               messiness = 0.1) {
@@ -50,7 +51,9 @@ add_special_chars <- function(data,
 #' @param messiness Percentage of values to change. Must be
 #' between 0 and 1. Default 0.1.
 #' @return Messy character vector
+#' @author Athanasia Monika Mowinckel
 #' @noRd
+
 special_chars <- function(x, messiness = 0.1) {
   # if factor, convert to character
   if (is.factor(x)) {

R/duplicate_rows.R

@@ -5,9 +5,11 @@
 #' between 0 and 1. Default 0.1.
 #' @param shuffle Insert duplicated data underneath original data or insert randomly
 #' @return A dataframe with duplicated rows inserted
+#' @author Philip Leftwich
 #' @export
 #' @examples
 #' duplicate_rows(mtcars, messiness = 0.1)
+
 duplicate_rows <- function(data, messiness = 0.1, shuffle = FALSE) {
   if (messiness < 0 || messiness > 1) {
     stop("'messiness' must be between 0 and 1")

R/messy_colnames.R

@@ -7,9 +7,11 @@
 #' @param messiness Percentage of values to change per function. Must be
 #' between 0 and 1. Default 0.1.
 #' @return data.frame with messy column names
+#' @author Athanasia Monika Mowinckel
 #' @export
 #' @examples
 #' messy_colnames(mtcars)
+
 messy_colnames <- function(data, messiness = 0.2) {
   new_names <- data.frame(x = names(data)) |>
     add_special_chars(messiness = messiness) |>

R/messy_dates.R

@@ -21,8 +21,8 @@
 #'
 #' @examples
 #' data <- data.frame(dates = rep(Sys.Date(), 10))
-#'
 #' messy_date_formats(data)
+
 messy_datetime_formats <-
   function(data,
            cols = NULL,

R/split_datetimes.R

@@ -26,9 +26,8 @@
 #' @examples
 #' # split datetimes
 #' data <- data.frame(today = Sys.time())
-#' data
 #' split_datetimes(data)
-#'
+
 split_datetimes <-
   function(data,
            cols = NULL,