slackr-not-working-from-within-function about slackr HOT 4 CLOSED

library(slackr)

slackr_setup(channel="#slackr")
n = 2

# Run a loop, send to slack.  Display content.
aMsg <- NULL
for ( i in 1:n ) {
  msg <- NULL
  msg <- paste0("Completed ", i, " iteration from loop @ ", Sys.time())
  aMsg <- c(aMsg, msg)
  slackr(paste(msg))
}
slackr(aMsg[1], aMsg[2])

aMsg
## [1] "Completed 1 iteration from loop @ 2015-07-29 14:52:21"
## [2] "Completed 2 iteration from loop @ 2015-07-29 14:52:22"
SendToSlack <- function(n) {

  slackr("Now post to Slack from function")
  aMsg <- NULL
  for ( i in 1:n ) {
    msg <- NULL
    msg <- paste0("Completed ", i, " iteration from function @ ", Sys.time())
    aMsg <- c(aMsg, msg)
    slackr(paste(msg))
  }
  slackr(aMsg[1], aMsg[2])
  return (aMsg)

}

output <- SendToSlack(n)
output
## [1] "Completed 1 iteration from function @ 2015-07-29 14:52:22"
## [2] "Completed 2 iteration from function @ 2015-07-29 14:52:22"