R/readfmcol.R

In steingod/R-mipolsat: Useful functions for handling locally processed satellite data

#
# NAME:
# NA
#
# PURPOSE:
# Generic FMCOL read function.
#
# REQUIREMENTS:
# NA
#
# INPUT:
# NA
#
# OUTPUT:
# NA
#
# NOTES:
# NA
#
# BUGS:
# NA
#
# AUTHOR:
# Øystein Godøy, METNO/FOU, 29.04.2008 
#
# MODIFIED:
# NA
#
# CVS_ID:
# $Id: readfmcol.R,v 1.4 2013-05-07 08:37:11 steingod Exp $

readfmcol <- function(path, pattern=NULL, method, classname="cloud",
        station="NA",start="NA",end="NA") {

    if (length(pattern) == 0) {
        cat("No pattern was specified, using all files in directory\n")
    }

    filelist <- list.files(path,pattern,full.names=TRUE)

    t <- vector(mode="list", length=length(filelist))

    for (i in 1:length(filelist)) {
        cat(paste("Reading file:",filelist[i],"\n"))
            if (method == "read124") {
                t[[i]] <- read124(filelist[i],classname,station,start,end)
            } else if (method == "read123") {
                t[[i]] <- read123(filelist[i],classname,station,start,end)
            } else {
                return("Unknown method\n")
            }
    }

    mydata <- fmcolcat(t)

    return(mydata)
}