Writing 10M lines of a query result to a table in Power Query via R

10MlinesToCSV.m

let
    seed = {1..10000000},
    seedTable = Table.FromList(seed, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    RScript = R.Execute("write.csv(dataset,""d:\\Downloads\\out.csv"")",[dataset=seedTable]),
    out = RScript
in
    out