R/keys.R

In rustyoldrake/WatsonR: R Interface to IBM Watson Developer Cloud Services

# keys.R -- YOUR PRIVATE KEYS - DO NOT SHARE
# this is not the 'pro' way to store keys, but it's low barrier to entry for many newbs  http://blog.revolutionanalytics.com/2015/11/how-to-store-and-use-authentication-details-with-r.html
# The watson.keys.load will let you modify this if you like

# NOT TESTED YET - How many services you can stand up at one time on a FREE / 30 Day Trial
# NEEDS WORK #

# ALCHEMY Language - AUTHENTICATION / CREDENTIALS  - Platinum
username_password_ALCH = "xxxxf30440aaa160dd1da4d8126c6b285"

# TONE ANALYZER  - AUTHENTICATION AND CREDENTIALS - GA
username_TON = "xxxx-7454-4721-b829-bcd051ef7d2d"
password_TON = "xxxx"
username_password_TON = paste(username_TON,":",password_TON,sep="")

# PERSONALITY INSIGHTS (PI) - AUTHENTICATION AND CREDENTIALS - Platinum
username_PI = "db1272c1-e3d8-4dfb-86aa-d6ab31ee2d2c"
password_PI = "ijWbMi5kHHGb"
username_password_PI = paste(username_PI,":",password_PI,sep="")

# NLC CREDENTIALS - AUTHENTICATION AND CREDENTIALS - Platinum
username_NLC = "xxxxx-e8cd-4dbf-816b-6a7ac1f2dd71"
password_NLC = "xxxxx"
username_password_NLC = paste(username_NLC,":",password_NLC,sep="")

# STT - Speech-To-Text (STT) - RED -  AUTHENTICATION AND CREDENTIALS
username_STT <-"xxxxx-b5bb-406c-9cc3-7cb964fb614f"
password_STT <- "xxxxxxx"
username_password_STT = paste(username_STT,":",password_STT,sep="")

# TTS - TEXT TO SPEECH (TTS) - RED - AUTHENTICATION AND CREDENTIALS
username_TTS <-"xxxxx-48c4-486e-98de-174388b22b17"
password_TTS <- "xxxxxx"
username_password_TTS = paste(username_TTS,":",password_TTS,sep="")