Function to generate tests based on an object

gistfile1.txt

match_vector <- function(vec) {
  name <- deparse(substitute(vec))
  length <- length(vec)
  if (length < 10) {
    identity_test <- glue::glue("expect_equal({name}, c(",
                                paste0(vec, collapse = ", "),
                                ")")
  }
  expectations <- c(
    glue::glue("expect_is({name}, 'vector')"),
    glue::glue("expect_equal(length({name}), {length})"),
    identity_test
  )
  to_paste <- paste0(expectations, collapse = "\n")
  rstudioapi::insertText(text = to_paste)
}

vec <- function_to_test()
match_vector(vec)

# RStudio prints
expect_is(vec, 'vector')
expect_equal(length(vec), 9)
expect_equal(vec, c(1, 2, 3, 4, 5, 6, 7, 8, 9)

# Then copy into test file