Fixed backbone unit test

leifeld · Oct 15, 2023 · 9732589 · 9732589
1 parent fde4eec
commit 9732589
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/rDNA/rDNA/DESCRIPTION b/rDNA/rDNA/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rDNA
 Version: 3.0.11
-Date: 2023-09-22
+Date: 2023-10-15
 Title: Discourse Network Analysis in R
 Authors@R: 
   c(person(given = "Philip",

diff --git a/rDNA/rDNA/tests/testthat/test-backbone.R b/rDNA/rDNA/tests/testthat/test-backbone.R
@@ -2,10 +2,10 @@ context("backbone")
 
 # Initialize DNA and sample database
 suppressPackageStartupMessages(library("rDNA"))
-dna_init()
 
 test_that("Penalized backbone works", {
   samp <- dna_sample()
+  dna_init()
   dna_openDatabase(samp, coderId = 1, coderPassword = "sample")
   b <- dna_backbone(method = "penalty",
                     penalty = 3.5,