R/dygraph_trim_and_shave.R

In brentscott93/biophysr: Analysis tools for muscle biophysics

#' Creates a dygraph to clean trap data in shiny
#'
#' @param data 
#' @param first_file_name 
#'
#' @return
#' @export
#'
#' @examples
dygraph_trim_and_shave <- function(data, first_file_name){


  numbers <- unlist(str_extract_all(first_file_name, "\\d"))
  
  
  numbers <- paste0(numbers, collapse = "")
  
  date <- paste0(str_sub(numbers, 1, 4), 
                 "-",
                 str_sub(numbers, 5, 6), 
                 "-",
                 str_sub(numbers, 7, 8), 
                 " ", 
                 str_sub(numbers, 9,10),
                 ":", 
                 str_sub(numbers, 11, 12),
                 ":",
                 str_sub(numbers, 13, 14),
                 "+0000")
  
  dt <- lubridate::as_datetime(date)
  
  ms <- seq(from = 0.0000,  by = 0.0002, along.with = data)
  
  dt_ms <- dt + ms
  
 
  
  xts2 <- xts::xts(data, order.by = dt_ms)
  
  
  number_files <- length(data)/25000
  
  end_file <- seq(dt + 5 , by = 5, length.out = number_files)
  
  add_labels <- function(x, events, ...){
    for(event in 1:length(events)){
      x <- dyEvent(x, events[[event]], paste("File", event), ...)
    }
    x
  }
  
  
  
  dygraph(xts2,  ylab = "mV", xlab = "Time", group = "group") %>% 
    dySeries("V1", color = "black") %>% 
    dyRangeSelector(fillColor ="", strokeColor = "black") %>% 
    add_labels(events = end_file, labelLoc = 'bottom', color = "black") %>%
    dyUnzoom() %>% 
    dyOptions(useDataTimezone = TRUE) %>% 
    dyAxis('x', drawGrid = FALSE) 
  
}