From 019129899c20cbce09339f5bd1e9b09b8b3f8530 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Thu, 3 Dec 2020 20:52:27 +0100
Subject: [PATCH] #7 Added classes for search_length_algorithm
---
R/prj_search_length_algorithm.R | 39 +++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
create mode 100644 R/prj_search_length_algorithm.R
diff --git a/R/prj_search_length_algorithm.R b/R/prj_search_length_algorithm.R
new file mode 100644
index 0000000..274bb3b
--- /dev/null
+++ b/R/prj_search_length_algorithm.R
@@ -0,0 +1,39 @@
+
+#===== r2ogs6_search_length_algorithm =====
+
+
+#'r2ogs6_search_length_algorithm
+#'@description tag: search_length_algorithm
+#'@param type string: The type
+#'@param value string | double: The value
+#'@export
+r2ogs6_search_length_algorithm <- function(type,
+ value = NULL) {
+
+ #Coerce input
+ value <- coerce_string_to_numeric(value)
+
+ new_r2ogs6_search_length_algorithm(type,
+ value)
+}
+
+
+new_r2ogs6_search_length_algorithm <- function(type,
+ value = NULL) {
+
+ assertthat::assert_that(assertthat::is.string(type))
+
+ validate_is_null_or_number(value)
+
+ structure(
+ list(
+ type = type,
+ value = value,
+ tag_name = "search_length_algorithm",
+ is_subclass = FALSE,
+ attr_names = character(),
+ flatten_on_exp = character()
+ ),
+ class = "r2ogs6_search_length_algorithm"
+ )
+}
--
GitLab