R/getPortfAcct.R

In cloudcello/blotter: Tools for Transaction-Oriented Trading Systems Development

#' get a protfolio in an account
#' @param Account account string
#' @param Portfolio portfolio string
#' @param Dates date subset as an xts style ISO 8601 string
#' @rdname getPortfAcct
.getPortfAcct <- function(Account,Portfolio, Dates=NULL) #should symbol subsets be supported too?  probably not.
{ # @author Brian Peterson
    acct<-suppressWarnings(try(get(paste("account",Account,sep='.'),envir=.blotter),silent=TRUE))
    if(inherits(acct,"try-error"))
        stop("Account ", Account, " not found, use initAcct() to create a new account.")
    pname=Portfolio
    Portfolio<-suppressWarnings(try(acct[[paste("portfolio",pname,sep='.')]],silent=TRUE))
    if(inherits(Portfolio,"try-error"))
        stop("Portfolio ", pname, " not found, use initPortf() to create a new portfolio or initAcct() to place it in ",Account)
    
    if(!is.null(Dates)){
        Portfolio<-Portfolio[Dates]
    }
    
    return(Portfolio)
}

###############################################################################
# Blotter: Tools for transaction-oriented trading systems development
# for R (see http://r-project.org/) 
# Copyright (c) 2008-2015 Peter Carl and Brian G. Peterson
#
# This library is distributed under the terms of the GNU Public License (GPL)
# for full details see the file COPYING
#
# $Id: getPortfAcct.R 1666 2015-01-07 13:26:09Z braverock $
#
###############################################################################