#' 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$
#
###############################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.