添加新代码后，一切都无法完成

如何解决添加新代码后，一切都无法完成

我遇到了有线联系。添加新代码后，代码将无法编织。

function_name <- function (...)
{
  output <- if (output_format == "list") {
    evolved.ts
  } else if (output_format == "tsibble") {
    as.tsibble(evolved.ts)
  }
  return(output)
}

解决方法

您可以使用args <- list(...)阅读自变量：

function_name <- function (...)
{
  args <- list(...)
  # Code
  output <- if (args$output_format == "list") {
    evolved.ts
  } else if (output_format == "tsibble") {
    as.tsibble(evolved.ts)
  }
  return(output)
}