panel.R

library(ggplot2)

# Time panel
panel = function (df_data, df_info, figdir, filedir, span=Inf) {
        
    # If there is not a dedicated figure directory it creats one
    # outdir = file.path(figdir, filedir, paste('span_', as.character(span), '_years', sep=''))
    outdir = file.path(figdir, filedir, '_years', sep='')
    if (!(file.exists(outdir))) {
        dir.create(outdir)
    }
    
    # Create name for the figure file
    outfile = paste('Panel_', df_info$code, '.png', sep='')
    
    plot = 
        ggplot(df_data, aes(x=Date, y=Qls)) +
        geom_line()

    
 
    return (plot)
}