下面这个是什么编程语言呢?看着像js,但是在js 我也没见过<-
GetSinaURL <- function(code = '600000', year = '2016', quarter = '1', index = FALSE) {
sina.url <- ''
if (index) {
sina.url <- paste0('http://vip.stock.finance.sina.com.cn/corp/go.php/vMS_MarketHistory/stockid/', code, '/type/S.phtml?year=', year, '&jidu=', quarter)
} else {
sina.url <- paste0('http://vip.stock.finance.sina.com.cn/corp/go.php/vMS_FuQuanMarketHistory/stockid/', code, '.phtml?year=', year, '&jidu=', quarter)
}
return(sina.url)
}
是不是R语音