time column issue in transform_data()

[glitt13]

I'm unable to run transform_data() successfully. Running line-by-line, the final line before returning data fails at:

data <- tsibble::as_tsibble(data, index = time_col, regular = regular)

The error states that there are multiple columns named time in data.

I believe this is caused by the following line:
data <- cbind(data, neg_der_log_bounded, time)

I suggest the following, which avoids binding the time column which is already contained in data:
data <- cbind(data, neg_der_log_bounded)

[glitt13]

The following hard-coded time column name in transform_data causes problems if data are not formatted in the same fashion:

time <- as.numeric(data$Timestamp[2:n] - data$Timestamp[1:(n - 
                                                               1)])

I suggest changing to:

time <- as.numeric(data[,time_col][2:n] - data[,time_col][1:(n - 
                                                               1)])