panel.R

library(here)

source(file.path(dirname(here()), 'init.R'))
source(file.path(dirname(here()), 'processing', 'extract.R'))


# Time panel
panel = function (filedir, filename, pan) {
    
    file_path = file.path(computer_data_path, filedir, filename)
    
    for (p in pan) {
        # If there is not a dedicated figure directory it creats one
        out_dir = file.path(res_dir, filedir)
        if (!(file.exists(out_dir))) {
            dir.create(out_dir)
        }
        
        # Get info
        info = extract_info(filedir, filename)

        # Create name for the figure file
        out_file = paste('Panel_', info$code, '.png', sep='')

        # Extract data
        data = extract_data(filedir, filename)
        




    }
 
    return (NA)
}

# panel('', 'H5920011_HYDRO_QJM.txt')