prep. new release

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: emuR
-Version: 2.2.0.9011
+Version: 2.3.0
 Title: Main Package of the EMU Speech Database Management System
 Authors@R: c(
     person("Raphael", "Winkelmann", , "[email protected]", c("aut", "cre")),

NEWS.md

@@ -1,4 +1,4 @@
-# emuR 2.2.0.9011
+# emuR 2.3.0
 
 ## new features / performance tweaks / improvements
 

R/emuR-bundleList.R

@@ -34,7 +34,8 @@ read_bundleList <- function(emuDBhandle,
 ##' \code{bundleList} parameter will be ignored and a bundleList will be created by
 ##' collapsing the segments as timeAnchors into the \code{_bundleList.json}
 ##' @param updateDBconfig if set to TRUE (the default) DBconfig will be updated 
-##' with the fields       
+##' with the fields   
+##' @param verbose be verbose    
 ##' \itemize{
 ##'  \item \code{"bundleComments": true}
 ##'  \item \code{"bundleFinishedEditing": true}
@@ -45,7 +46,8 @@ write_bundleList <- function(emuDBhandle,
                              name, 
                              bundleList, 
                              seglist, 
-                             updateDBconfig = T){
+                             updateDBconfig = T,
+                             verbose = T){
 
   if(missing(name)){
     stop("name parameter must be given")
@@ -54,7 +56,9 @@ write_bundleList <- function(emuDBhandle,
   bl_dir_path = file.path(emuDBhandle$basePath, "bundleLists")
 
   if(!dir.exists(bl_dir_path)){
-    print(paste0("INFO: No bundleList dir found in emuDB (path: ", bl_dir_path, ")! Creating directory..."))
+    if(verbose){
+      print(paste0("INFO: No bundleList dir found in emuDB (path: ", bl_dir_path, ")! Creating directory..."))
+    }
     created = dir.create(bl_dir_path)
     if(!created){
       stop("Couldn't create ", bl_dir_path)

R/emuR-get_trackdata.R

@@ -467,7 +467,6 @@
 
       #############################
       # calculate size of and create new data matrix
-      browser()
       rowSeq <- seq(timeStampSeq[curStartDataIdx], timeStampSeq[curEndDataIdx], fSampleRateInMS) 
       curData <- matrix(ncol = ncol(tmpData), nrow = length(rowSeq))
 

cran-comments.md

@@ -1,6 +1,6 @@
 ## Test environments
 
-* local OSX & Windows 10 x64 installs, R version 4.0.3 (2020-10-10)
+* local OSX (Platform: aarch64-apple-darwin20 (64-bit)) & Windows 10 x64 installs, R version 4.1.0 (2021-05-18)
 * Ubuntu 16.04.6 LTS (on travis-ci), R version 4.0.2 (2020-06-22)
 * devtools::check_rhub(); devtools::check_win_devel();