Support SSML for text-to-speech

[MarkEdmondson1234]

Add endpoint:
https://cloud.google.com/text-to-speech/docs/ssml

[MarkEdmondson1234]

Add ssml option to the body object and add an option:

googleLanguageR/R/text-to-speech.R

Lines 89 to 106 in 2b4dc88

	body <- list(
	input = list(
	text = input
	),
	voice = list(
	languageCode = languageCode,
	name = name,
	ssmlGender = gender
	),
	audioConfig = list(
	audioEncoding = audioEncoding,
	speakingRate = speakingRate,
	pitch = pitch,
	volumeGainDb = volumeGainDb,
	sampleRateHertz = sampleRateHertz
	)
	)

[MarkEdmondson1234]

This is working for me now - I added an argument "inputType" which accepts "text" or "ssml"

gl_talk('<speak>The <say-as interpret-as=\"characters\">SSML</say-as>
          standard <break time=\"1s\"/>is defined by the
          <sub alias=\"World Wide Web Consortium\">W3C</sub>.</speak>', 
          inputType =  "ssml")

Please install via remotes::install_github("ropensci/googleLanguageR") and test it