R> any(grepl("RStudio", .libPaths()))
[1] TRUE
R>
R>

> RStudio.version()
[1] "0.96.316"

is.RStudio <- function(){
  if(!exists("RStudio.version"))return(FALSE)
  if(!is.function(RStudio.version))return(FALSE)
  return(TRUE)
}