R/AFM.read.R

In thomasgredig/nanoscopeAFM: Load and Analyze Atomic Force Microscopy Data Files

# loads AFM image file
# (code from previous version to load certain
# types of images, should be deprecated, when possible)
AFM.read <- function(filename, no=1) {
  # does file exist?
  df = data.frame()
  if (file.exists(filename)) {
    # get file extension
    #fext = tolower(tools::file_ext(filename))

    df = read.Nanoscope_file(filename,no)
    attr(df,"instrument")='Veeco'

  }  else { warning(paste("File does not exist:",filename)) }
  df
}





.getChannelName <- function(h1,no) {
  # from h1=read.AR_eofHeader.V2(filename)
  gsub('(.*)[RT][er].*$','\\1',strsplit(h1$DataTypeList,",")[[1]][no])
}

.getChannelDirection <- function(h1,no) {
  # from h1=read.AR_eofHeader.V2(filename)
  gsub('.*?([RT][er].*)$','\\1',strsplit(h1$DataTypeList,",")[[1]][no])
}

.getChannelUnits <- function(channelName) {
  units = "m"  # default units
  if (nchar(channelName)>0) {
    if(grepl('Phase',channelName)) units="deg"
  } else { units="" }
  units
}