rtext : fix not setting custom id on init

Author: petermeissner

R/rtext.R

@@ -263,6 +263,8 @@ rtext <-
       ##### ID
       if( is.null(id) ){
         self$id <- dp_hash(self)
+      }else{
+        self$id <- id
       }
 
       ##### Hashing again

tests/testthat/test_rtext.r

@@ -369,6 +369,12 @@ test_that("rtext initialization", {
   expect_error( rtext$new(text_file=dp_tf(1)), NA)
   expect_error( rtext$new(text="", text_file=dp_tf(1)), NA)
   expect_error( rtext$new(text=readLines(dp_tf(1))), NA)
+  expect_true({
+    !is.null(rtext$new("")$id)
+  })
+  expect_true({
+    identical(rtext$new("", id="mänämüdderschnüdetspück")$id, "mänämüdderschnüdetspück")
+  })
 })