如何解决当我运行quantmodgetDividens时,我从R中得到一个错误
library(xts)
library(quantmod)
Tick <- c("A","AA","AADR","AAN","AAP") #have more than 3 thousands symbols.
divs <- xts()
for( sym in Tick) {
divs <- merge(divs,getDividends(sym,from= "2016-01-04",to="2017-03-09",src="yahoo"))
}
我的错误是:
Error in open.connection(file,"rt") :
Handle is already in use elsewhere.
我在Google上搜索了此错误,但我不知道它来自何处。有人知道为什么吗?
解决方法
尝试使用CREATE TABLE SystemTableColumns(
TableName VARCHAR2(30) NOT NULL,ColumnName VARCHAR2(30) NOT NULL,ObjectType VARCHAR2(18),FieldType VARCHAR2(106),FieldTypeLength NUMBER NOT NULL,InPrimaryKey VARCHAR(10),CreateDate DATE NOT NULL,LastModifiedDate DATE NOT NULL,ColumnID NUMBER,ObjectID NUMBER NOT NULL
);
/
CREATE OR REPLACE PROCEDURE p_systemtablecolumns_info IS
BEGIN
INSERT INTO SystemTableColumns
SELECT
T.Table_Name TableName,T.Column_Name ColumnName,A.Object_Type ObjectType,T.Data_Type FieldType,T.Data_Length FieldTypeLength,C.Constraint_Type InPrimaryKey,A.Created CreateDate,A.Last_DDL_Time LastModifiedDate,T.Column_ID,A.Object_ID
FROM All_Tab_Columns T,All_Objects A
WHERE T.Owner = A.Owner
AND T.Table_Name = A.Object_Name
AND T.Table_Name = C.Table_Name
AND C.Constraint_Type = PK_Type
MINUS
SELECT
S.TableName,S.ColumnName,S.ObjectType,S.FieldType,S.FieldTypeLength,S.InPrimaryKey,S.CreateDate,S.LastModifiedDate,S.ColumnID,S.ObjectID
FROM SystemTableColumns S;
IF PK_Type = 'P' THEN INSERT INTO SystemTableColumns (IsPrimaryKey) VALUES ('TRUE');
ELSE INSERT INTO SystemTableColumns (IsPrimaryKey) VALUES ('FALSE');
END IF;
COMMIT;
END;
BEGIN
-- Call the procedure
P_systemtablecolumns_info;
END;
:
lapply
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。