tests/testthat/testAFMReportMaker.R

In AFM: Atomic Force Microscope Image Analysis

library(testthat)
assignInNamespace("cedta.override", c(data.table:::cedta.override,"AFM"),"data.table")
assignInNamespace("cedta.override", c(data.table:::cedta.override,"AFMImageAnalyser"),"data.table")

source("./configuration.R")


test_that("generateReport", {

  # exportDirectory=tempdir()
  # #exportDirectory="P:/MAT_DOCUMENTS/AccPlatform/person_display_R/"
  # data("AFMImageOfRegularPeaks")
  # newAFMImage<-AFMImageOfRegularPeaks
  # newAFMImage@fullfilename<-paste(exportDirectory,"AFMImageOfRegularPeaks.txt",sep="/")
  # generateReport(newAFMImage)
  # 
  # #   data("AFMImageOfNormallyDistributedHeights")
  # #   newAFMImage<-AFMImageOfNormallyDistributedHeights
  # #   newAFMImage@fullfilename<-paste(exportDirectory,"AFMImageOfNormallyDistributedHeights.txt",sep="/")
  # #   generateReport(newAFMImage)
  # #
  # #   data("AFMImageOfOnePeak")
  # #   newAFMImage<-AFMImageOfOnePeak
  # #   newAFMImage@fullfilename<-paste(exportDirectory,"AFMImageOfOnePeak.txt",sep="/")
  # #   generateReport(newAFMImage)
  # #
  # data("AFMImageOfAluminiumInterface")
  # newAFMImage<-AFMImageOfAluminiumInterface
  # newAFMImage@fullfilename<-paste(exportDirectory,"AFMImageOfAluminiumInterface.txt",sep="/")
  # newAFMImage<-extractAFMImage(newAFMImage, 100, 100, 32)
  # #generateCheckReport(newAFMImage)
  # generateReport(newAFMImage)
})