r - 是否有类似于 R 传单中的 addLayersControl 函数的 googleway 函数？

Question

我使用 R 的 googleway 包中的 google_map 函数映射了 2 个多边形。我想打开和关闭多边形。我可以使用 addLayersControl 函数在传单包中执行此操作。googleway有类似的功能吗？如果没有，我还有什么其他方法可以做到这一点？

这是我的一些服务器代码

function(input, output, session){
output$map <-  renderGoogle_map({ 
google_map(key = 'mykey')%>%
add_polylines(data=data1,stroke_weight=5)%>%
add_polylines(data=data2,stroke_weight=5)
})

谢谢！