Merge pull request #114 from spsanderson/development

Fixes #113

NAMESPACE

@@ -15,6 +15,7 @@ export(discrete_walk)
 export(euclidean_distance)
 export(generate_caption)
 export(geometric_brownian_motion)
+export(get_attributes)
 export(kurtosis_vec)
 export(rand_walk_helper)
 export(random_normal_drift_walk)

NEWS.md

@@ -14,6 +14,7 @@ minimum of a random walk.
 maximum of a random walk.
 5. Fix #96 - Add Function `std_cum_mean_augment()` to calculate the cumulative
 mean of a random walk.
+6. Fix #113 - Add Function `get_attributes()` to get attributes without the `row.names`
 
 ## Minor Improvements and Fixes
 None

R/helpers.R

@@ -515,3 +515,42 @@ std_cum_mean_augment <- function(.data,
 
   return(ret)
 }
+
+#' Get Attributes
+#'
+#' @family Utility Functions
+#'
+#' @author Steven P. Sanderson II, MPH
+#'
+#' @details This function retrieves the attributes of a given R object,
+#' excluding the row.names attribute.
+#'
+#' @description The `get_attributes` function takes an R object as input and
+#' returns its attributes, omitting the row.names attribute.
+#'
+#' @param .data An R object from which attributes are to be extracted.
+#'
+#' @examples
+#' get_attributes(rw30())
+#' get_attributes(iris)
+#' get_attributes(mtcars)
+#'
+#' @return A list of attributes of the input R object, excluding row.names.
+#'
+#' @name get_attributes
+NULL
+#'
+#' @rdname get_attributes
+#'
+#' @export
+
+get_attributes <- function(.data){
+
+  atb <- attributes(.data)
+
+  # drop row.names
+  atb <- atb[!names(atb) %in% c("row.names")]
+
+  # Return
+  return(atb)
+}