diff --git a/DESCRIPTION b/DESCRIPTION index a9aff342..ae6750fa 100644 --- a/DESCRIPTION +++ b/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", , "raphael@phonetik.uni-muenchen.de", c("aut", "cre")), diff --git a/NEWS.md b/NEWS.md index 31eee228..b01e3207 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,4 @@ -# emuR 2.2.0.9011 +# emuR 2.3.0 ## new features / performance tweaks / improvements diff --git a/R/emuR-bundleList.R b/R/emuR-bundleList.R index ac46358b..5da21924 100644 --- a/R/emuR-bundleList.R +++ b/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) diff --git a/R/emuR-get_trackdata.R b/R/emuR-get_trackdata.R index 34bcce58..ad8f300d 100644 --- a/R/emuR-get_trackdata.R +++ b/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)) diff --git a/cran-comments.md b/cran-comments.md index 8ce85af0..e696e899 100644 --- a/cran-comments.md +++ b/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(); diff --git a/man/write_bundleList.Rd b/man/write_bundleList.Rd index 5a729f30..249314ef 100644 --- a/man/write_bundleList.Rd +++ b/man/write_bundleList.Rd @@ -4,7 +4,14 @@ \alias{write_bundleList} \title{write bundleList} \usage{ -write_bundleList(emuDBhandle, name, bundleList, seglist, updateDBconfig = T) +write_bundleList( + emuDBhandle, + name, + bundleList, + seglist, + updateDBconfig = T, + verbose = T +) } \arguments{ \item{emuDBhandle}{emuDB handle object (see \link{load_emuDB})} @@ -19,7 +26,9 @@ write_bundleList(emuDBhandle, name, bundleList, seglist, updateDBconfig = T) collapsing the segments as timeAnchors into the \code{_bundleList.json}} \item{updateDBconfig}{if set to TRUE (the default) DBconfig will be updated -with the fields +with the fields} + +\item{verbose}{be verbose \itemize{ \item \code{"bundleComments": true} \item \code{"bundleFinishedEditing": true}