将传单弹出窗口保持在视图中(R)

我正在构建一个仪表板,它有一个传单可视化。单击某个区域时,将显示一个相当大的弹出窗口,其中包含图片和信息,如下所示(由于数据是专有的,因此信息会变得模糊):

但是,根据用户单击地图的位置,弹出窗口可能会被切断,如下所示:

我希望当用户单击时,弹出窗口始终显示在视图中,即不切断。 使命感

popupOptions = popupOptions(keepInView = T)

充其量只能间歇工作。我对JS了解不多,所以我不知道如何让它工作。

出于上述原因,我无法包含代码示例,但弹出窗口的调用如下:

leaflet() %>%
addPolygons(
  popup = paste0(*popup content*),
  popupOptions = popupOptions(keepInView = T)
)