# R语言脚本连接华为云 DLI载入特征矩阵数据，返回一个data frame，函数是指定的名称load_data()
# R语言连接Python用reticulate包。
library(reticulate)
load_data<- function(){
  location<- substr(getwd(),1,4)
  # 调用Pyhton脚本连接华为云 DLI，它没有R接口包。
  if (location == '/usr'){    # Rstudio 开发环境
    part<- '~'
  }else{                       # 服务器部署环境
    part<- '..'
  }
  path<- paste(part,"/scripts/","load_from_DLI.py",sep="")
  py_run_file(path)
  df<- py$data
  df$yy<- as.integer(substr(df$month,1,4))
  df$mm<- as.integer(substr(df$month,6,7))
  df$index<-as.integer(row.names(df))
  return(df)
}