tests/testthat/test-eval_glue.R

context("Function eval_glue")

test_that("eval_glue works", {
    rm(list = ls())
    AA <- "nn"

    eval_glue("{AA} <- 3")

    expect_equal(nn, 3)
    expect_equal(AA, "nn")
})
GegznaV/spMisc documentation built on April 26, 2020, 5:59 p.m.