0

我遇到了有线情况。添加新代码后代码无法编织出来。

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

1 回答 1

0

您可以阅读以下参数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)
}
于 2020-09-01T09:57:08.960 回答