从键盘输入创建 xts 对象的函数答案

【问题标题】：Function to create xts object from keyboard input从键盘输入创建 xts 对象的函数
【发布时间】：2013-06-21 10:14:27
【问题描述】：

我有很多销售区域。每个都是一个 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 函数确实有效。

【问题讨论】：

标签： r function input xts

【解决方案1】：

怎么样：

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

【讨论】：

是的，完美。谢谢 asb。