tests/testthat/test-translate.R

context("test translate")

test_that("tanslate Chinese words into English, or English words into Chinese", {

  x <- c("apple", "banana", "pear", "I love you")

  # Example-1
  translate("apple")
  translate(x)

  # Example-2
  translate_full("apple")
  translate_full(x)

  # Example-3
  translate_view("apple")
  translate_view(x)

})

Try the ecce package in your browser

Any scripts or data that you put into this service are public.

ecce documentation built on Jan. 14, 2022, 1:06 a.m.