r - 関数内のggvis

Question

プロットを描画できる単純な関数を作成しようとしていggvisます。ここでは非標準の評価を使用する必要があることを知っているため、パッケージinterceptの関数を使用します。lazyeval

test_fn <- function(data,xvar, yvar){

        plot <- 
                data %>% 
                ggvis(lazyeval::interp(~x, x = as.name(xvar)), 
                      lazyeval::interp(~y, y = as.name(yvar))) %>% 
                layer_points()
        return(plot)
}

編集：

この関数は正常に動作します:

test_fn(mtcars,'mpg', 'qsec')

しかし、特定のコマンドが機能するためには、さらに何をする必要がありますか:

test_fn(mtcars,mpg, qsec)