키보드 입력으로 xts 객체를 생성하는 기능

Question

나는 판매 영역이 많습니다. 각각 하나는 data.frame이고 각각에 대해 xts 객체를 만들 수 있습니다. 각각에 대해 코드 행이 필요합니다. 오히려 필요할 때 생성하는 함수를 사용하고 싶습니다. 키보드 입력을 사용하여 문자열을 작성한 다음 따옴표를 제거하고 입력을 기호로 저장하여 함수에 사용하려고했습니다. 이것은 작동하지 않습니다!

## Function to specify unit 
userinput <- scan("", what="") 
userinput <- as.name(userinput[1]) 

## Function to create xts object 
createXts=function(x) { 
    xts(x[1], order.by=x$StartTime, dateFormat="POSIXct") 
} 
## Call function 
createXts(userinput) 
##Result: 
>> Error in x[1] : object of type 'symbol' is not subsettable 

사용자 입력을 사용하여 함수에서 사용할 data.frame을 지정하려면 어떻게해야합니까? 참고 : x을 실제 장치 이름으로 바꾸면 createXts 함수가 작동합니다.

Answer 1

방법에 대해 :

CreateXts <- function() { 
    xx <- scan("", what="") 
    xx <- get(xx[[1]]) 
    xts(xx, order.by=xx$StartTime, dateFormat="POSIXct") 
}