feat: new function get_methods #2 #9

atn38 · Apr 27, 2022 · 77cc7db · 77cc7db
1 parent fc1a7f4
commit 77cc7db
Showing 1 changed file with 26 additions and 0 deletions.
diff --git a/R/get_methods.R b/R/get_methods.R
@@ -0,0 +1,26 @@
+#' Title
+#'
+#' @param x
+#'
+#' @return
+#' @export
+#'
+#' @examples
+get_methods <- function(corpus) {
+  get_multilevel_element(corpus = corpus,
+                         element_names = c("methods", "methodStep"),
+                         parse_function = parse_methodstep)
+}
+
+#' Title
+#'
+#' @param x
+#'
+#' @return
+#'
+#' @examples
+parse_methodstep <- function(x) {
+  m <- parse_text(null2na(x$description))
+data.frame(methoddescription = m[["text"]],
+           methodtype = m[["type"]])
+}