R/xls_read.R

In zhujiedong/readphoto: read LI-6800 and LI-6400 raw data file in batch

#' Reads files from the LI-6800
#'
#' \code{xlconnect_read} Reads LI-6800 raw data files, which are delimited by tabs.
#'
#' @param path path of your data.
#' @param start_row start of measured data
#' @param S recompute by providing diffferen leaf areas, if the area does not need to change
#' , enter one single value of the  actual area, else, enter a vector of the same length
#' with the measured data. The default NULL means you do not want to change the leaf area.
#'
#' @return read_6800 imports a LI-6800 raw data file as a data frame
#' @export

xlconnect_read <- function(path, start_row = 17, S = NULL) {
  #Loading an Excel workbook. Both .xls and .xlsx file formats can be used.
  wb <- XLConnect::loadWorkbook(path)
  # read group name and header, without header, and paste0 them as names
  # to avoid repeated names such as time
#  group_name <-
#    XLConnect::readWorksheet(
#      wb,
#     sheet = 1,
#      startRow = start_row - 3,
#      endRow = start_row - 3,
#      header = FALSE
#    )
  header_name <-
    XLConnect::readWorksheet(
      wb,
      sheet = 1,
      startRow = start_row - 2,
      endRow = start_row - 2,
      header = FALSE
    )
  if (is.null(S)) {
    #reading worksheets of an Excel workbook
    df <- XLConnect::readWorksheet(wb,
                                   sheet = 1,
                                   startRow = start_row,
                                   header = FALSE)
    names(df) <- header_name
  } else{
#    new_name <- paste0(group_name, "_", header_name)
    
    XLConnect::writeWorksheet(
      wb,
      data = S,
      sheet = 1,
      startRow = start_row,
      startCol = which(header_name == "S"),
      header = FALSE
    )
    XLConnect::setForceFormulaRecalculation(wb, sheet = 1, TRUE) 
    
    df <-  XLConnect::readWorksheet(wb,
                                    sheet = 1,
                                    startRow = start_row,
                                    header = FALSE)
    names(df) <- header_name
  }
  df
}