如何解决R TeachingDemos包中的zoomplot [帆船飞盘]

Question

过去我用过

zoomplot(locator(2))

来自图书馆（TeachingDemos）取得了很大的成功，但自从升级到Sailing Frisbee（R3.0.2）后，我接受了错误消息的欢迎：

Error in do.call(fn, alst) : invalid plot type.

执行?zoomplot中提供的股票标准示例（见下文）会重现错误。有没有人对我如何解决这个问题或者另一种行动方案提出任何建议？我已将我的搜索限制在与此套餐相关的错误中，但却空手而归。

非常感谢。

library(TeachingDemos)
if(interactive()){

with(iris, plot(Sepal.Length, Petal.Width,
                col=c('red','green','blue')[Species]))
text( 6.5, 1.5, 'test' )
zoomplot( locator(2) ) # now click on 2 points in the plot to zoom in

plot( 1:10, rnorm(10) )
tmp <- rnorm(10,1,3)
lines( (1:10) + 0.5, tmp, col='red' )
zoomplot( c(0,11), range(tmp) )
}