添加新代码后，事情无法编织

Question

我遇到了有线的情况。添加新代码后代码编不出来

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

Answer 1

您可以使用 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)
}