你好.

我想删除"；请验证"；来自ShinyManager的文本元素。我已经尝试了ShinyJShtml()函数，但我无法让它与ShinyManager中的元素一起工作。

示例代码：

credentials <- data.frame(
  user = c("shiny", "shinymanager"),
  password = c("azerty", "12345"),
  stringsAsFactors = FALSE)

library(shiny)
library(shinymanager)

ui <- secure_app(fluidPage())

server <- function(input, output, session) {
  
  res_auth <- secure_server(
    check_credentials = check_credentials(credentials)
  )
}

shinyApp(ui, server)

谢谢.

编辑：正如Akron所指出的，我可以使用set_labels()中的secure_app()函数来删除文本。但是，如果要删除剩余空间，则还必须添加以下参数：

secure_app(ui,head_auth=tags$style(".h1, .h1, h2, .h2, h3, .h3 {margin-top:0px;margin-bottom:0px;}"),
set_labels(language="en","Please authenticate"=""))

顺晟科技：

考虑使用set_labels

set_labels(
  language = "en",
  "Please authenticate" = "")

-输出