install.packages("edgar")
    install.packages("edgarWebR")
    library(edgar)
    library(edgarWebR)

    #retrieve BusinDesc (Item 1)
    filings.BusinDes.2018<-getBusinDescr(cik.no=CIK,filing.year=2018)

    #where CIK is a vector of CIK codes (as integers) for all 74 companies
    #for replicability here are some CIK codes:
    CIK.codes<-c(918160,1164727,831259,73309,1022671)

    #results/output in console
    Downloading fillings. Please wait...  100%
    Extracting 'Item 1' section... 0%
    Error in writeLines(product.descr2, filename2) :
      object 'product.descr2' not found

Error in writeLines(product.descr2, filename2) :
      object 'product.descr2' not found