fix tests

R/concatenate_textgrids.R

@@ -1,6 +1,6 @@
-#' Concatenate sounds
+#' Concatenate TextGrids
 #'
-#' Creates a merged sound file from old sound files in a folder. If the annotation argument is not equal to \code{NULL}, it creates an annotation file (Praat .TextGrid, ELAN .eaf or EXMARaLDA .exb) with original sound names annotation.
+#' Creates a merged TextGrids from TextGrids files in a folder.
 #'
 #' @author George Moroz <[email protected]>
 #'
@@ -33,11 +33,7 @@ concatenate_textgrids <- function(path,
 
   # get list of files -------------------------------------------------------
   path <- normalizePath(path)
-  files <- paste0(
-    path,
-    "/",
-    list.files(path, "\\.TextGrid$")
-  )
+  files <- list.files(path, "\\.TextGrid$", full.names = TRUE)
 
   # read all textgrids and converge them into one df ------------------------
   start <- 0
@@ -59,14 +55,9 @@ concatenate_textgrids <- function(path,
     tier_names <- unique(results$tier)
   }
 
-  writeLines(
-    paste0(
-      'File type = "ooTextFile"\nObject class = "TextGrid"\n\nxmin = 0\nxmax = ',
-      max(results$time_end),
-      "\ntiers? <exists>\nsize = 0\nitem []:"
-    ),
-    paste0(path, "/", result_file_name, ".TextGrid")
-  )
+  create_empty_textgrid(duration = max(results$time_end),
+                        path = path,
+                        result_file_name = result_file_name)
 
   s <- split(results[, c("time_start", "time_end", "content")], results$tier)
 

R/df_to_tier.R

@@ -58,11 +58,20 @@ df_to_tier <- function(df, textgrid, tier_name = "", overwrite = TRUE) {
     })
   }
 
-  if(df$time_end[nrow(df)] != textgrid_duration){
-    df <- rbind(df,
-                data.frame(time_start = df$time_end[nrow(df)],
-                           time_end = textgrid_duration,
-                           content = ""))
+
+  if("time_end" %in% names(df)){
+    if(df$time_end[nrow(df)] != textgrid_duration){
+      df <- rbind(df,
+                  data.frame(time_start = df$time_end[nrow(df)],
+                             time_end = textgrid_duration,
+                             content = ""))
+    }
+  } else {
+    if(df$time_start[nrow(df)] != textgrid_duration){
+      df <- rbind(df,
+                  data.frame(time_start = df$time_start[nrow(df)],
+                             content = ""))
+    }
   }
 
   tier_class <- ifelse("time_end" %in% names(df),

codemeta.json

@@ -8,7 +8,7 @@
   "codeRepository": "https://github.com/ropensci/phonfieldwork",
   "issueTracker": "https://github.com/ropensci/phonfieldwork/issues",
   "license": "https://spdx.org/licenses/GPL-2.0",
-  "version": "0.0.15",
+  "version": "0.0.16",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
@@ -235,7 +235,7 @@
     },
     "SystemRequirements": "pandoc (>= 1.14) - http://pandoc.org"
   },
-  "fileSize": "2085.848KB",
+  "fileSize": "2086.182KB",
   "citation": [
     {
       "datePublished": "2023",

tests/testthat/test-df-to-tier.R

@@ -1,13 +1,15 @@
 test_that("df_to_tier", {
   time_start <- c(0.00000000, 0.01246583, 0.24781914, 0.39552363, 0.51157715)
-  time_end <- c(0.01246583, 0.24781914, 0.39552363, 0.51157715, 0.65267574)
+  time_end <- c(0.01246583, 0.24781914, 0.39552363, 0.51157715, 0.6526757369614512)
   content <- c("", "T", "E", "S", "T")
   my_df <- data.frame(id = 1:5, time_start, time_end, content)
   tg <- df_to_tier(my_df,
                    system.file("extdata", "test.TextGrid", package = "phonfieldwork"),
                    overwrite = FALSE
   )
 
+  readLines(system.file("extdata", "test.TextGrid", package = "phonfieldwork"))
+
   expect_error(
     df_to_tier(my_df[-2],
       system.file("extdata", "test.TextGrid",