library(optparse)
library(tidyverse)
library(magrittr)
library(qvalue)

loaded_packages <- (.packages())

write.table(installed.packages()[loaded_packages, c("Package", "Version")],
            sep = ",",
            row.names = FALSE)