From ef44a4adaeaef836af4702bea1fd45ecff3482c0 Mon Sep 17 00:00:00 2001
From: aheinri5 <Anna@netzkritzler.de>
Date: Thu, 3 Dec 2020 20:51:53 +0100
Subject: [PATCH] #7 Added classes for local_coordinate_system
---
R/prj_local_coordinate_system.R | 44 +++++++++++++++++++++++++++++++++
1 file changed, 44 insertions(+)
create mode 100644 R/prj_local_coordinate_system.R
diff --git a/R/prj_local_coordinate_system.R b/R/prj_local_coordinate_system.R
new file mode 100644
index 0000000..1212ac3
--- /dev/null
+++ b/R/prj_local_coordinate_system.R
@@ -0,0 +1,44 @@
+
+#'r2ogs6_local_coordinate_system
+#'@description tag: local_coordinate_system
+#'@param basis_vector_0 string | double: A basis vector
+#'@param basis_vector_1 string | double: A basis vector
+#'@param basis_vector_2 Optional: string | double: A basis vector
+#'@export
+r2ogs6_local_coordinate_system <- function(basis_vector_0,
+ basis_vector_1,
+ basis_vector_2 = NULL) {
+
+ #Coerce input
+ basis_vector_0 <- coerce_string_to_numeric(basis_vector_0)
+ basis_vector_1 <- coerce_string_to_numeric(basis_vector_1)
+ basis_vector_2 <- coerce_string_to_numeric(basis_vector_2)
+
+ new_r2ogs6_local_coordinate_system(basis_vector_0,
+ basis_vector_1,
+ basis_vector_2)
+}
+
+
+new_r2ogs6_local_coordinate_system <- function(basis_vector_0,
+ basis_vector_1,
+ basis_vector_2 = NULL) {
+
+ assertthat::assert_that(is.double(basis_vector_0))
+ assertthat::assert_that(is.double(basis_vector_1))
+
+ validate_is_null_or_number(basis_vector_1)
+
+ structure(
+ list(
+ basis_vector_0 = basis_vector_0,
+ basis_vector_1 = basis_vector_1,
+ basis_vector_2 = basis_vector_2,
+ tag_name = "local_coordinate_system",
+ is_subclass = FALSE,
+ attr_names = character(),
+ flatten_on_exp = character()
+ ),
+ class = "r2ogs6_local_coordinate_system"
+ )
+}
\ No newline at end of file
--
GitLab