correctly infer model name for ml_save (#170)
correctly infer model name for ml_save (#170)

rstudio/sparklyr,rstudio/sparklyr,rstudio/sparklyr,rstudio/sparklyr,kevinykuo/sparklyr,kevinykuo/sparklyr,kevinykuo/sparklyr,kevinykuo/sparklyr