如何在ggvis中禁用科学记数法？

Question

如何在此ggvis图表的标签中禁用科学格式？

library(dplyr)
library(ggvis)
tbl_df(cars) %>% mutate(speed=speed*100000000) %>% 
ggvis(~speed, ~dist) %>% scale_numeric('x', trans='log') %>% layer_points()

我尝试使用options("scipen"=100, "digits"=4)，但它没有用。