tests/testthat/test-synth.R

context("Trying out the API")

test_that(desc = "Trying the API to see if the example works", {
  skip_on_cran()

  if (ms_valid_tts_key()) {
    res = ms_synthesize(
      script = "hey, how are you doing? I'm doing pretty good",
      output_format = "audio-16khz-128kbitrate-mono-mp3")
    tmp <- tempfile()
    writeBin(res$content, con = tmp)
    mp3 = tuneR::readMP3(tmp)
    expect_true(file.size(tmp) > 50000)
  }

})

Try the mscstts package in your browser

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

mscstts documentation built on Oct. 28, 2020, 5:07 p.m.