Commit de2811b8 authored by Enrico Schumann's avatar Enrico Schumann

[write_ts_table] Fix handling of ts_tables with zero rows

parent 45035e85
2017-05-09 Enrico Schumann <es@enricoschumann.net>
* R/functions.R (write_ts_table): when ts_table
has zero rows, return(0) at once
2017-05-08 Enrico Schumann <es@enricoschumann.net>
* DESCRIPTION (Version): Version: 0.4-4
......
......@@ -64,6 +64,8 @@ write_ts_table <- function(x, dir, file,
backend <- tolower(backend)
ans <- nrow(x)
if (ans == 0L)
return(invisible(0L))
if (backend == "csv") {
dfile <- if (missing(dir))
file
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment