在闪亮的应用程序中对acess geoserver进行基本身份验证

Question

我需要访问一个地理服务器来获取图像（通过wms服务），该图像受一个闪亮的APP中的用户名和密码（base auth）保护。目前，我使用https://username:password@server-url/wms来访问地理服务器。但是，这些方法允许在请求中显示用户名和密码。

我试图在httr包中调用GET函数，但对我不起作用

a <- GET(wms_url, authenticate(user, password))

我怎么能隐藏用户名和密码？