问题描述
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