# NOT RUN {
filename <- system.file("extdata/rawdata.xlsx", package = "growthPheno",
mustWork = TRUE)
raw.dat <- importExcel(file = filename,
startTime = "2015-02-11 0:00 AM")
# }
# NOT RUN {
camview.labels <- c("SF0", "SL0", "SU0", "TV0")
names(camview.labels) <- c("RGB_Side_Far_0", "RGB_Side_Lower_0",
"RGB_Side_Upper_0", "RGB_TV_0")
filename <- system.file("extdata/raw19datarow.csv", package = "growthPheno",
mustWork = TRUE)
raw.19.dat <- suppressWarnings(importExcel(file = filename,
cartId = "Snapshot.ID.Tags",
startTime = "06/10/2017 0:00 AM",
timeFormat = "%d/%m/%Y %H:M",
labsCamerasViews = camview.labels,
plotImagetimes = FALSE))
# }
Run the code above in your browser using DataCamp Workspace