从 Shinymanager 中删除 html 元素答案

【问题标题】：remove html element from shinymanager从 Shinymanager 中删除 html 元素
【发布时间】：2021-10-02 20:43:22
【问题描述】：

你好。

我想从shinymanager 中删除“请验证”文本元素。
我已经尝试过shinyjs html() 函数，但我无法让它与来自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 所指出的，我可以使用 secure_app() 中的 set_labels() 函数删除文本。但是，如果您想删除剩余空间，您还必须添加此参数：

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"=""))

【问题讨论】：

标签： html r shiny

【解决方案1】：

考虑使用set_labels

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

-输出

【讨论】：

谢谢阿克伦。这确实删除了文本，但元素似乎仍然存在。问题是用户名输入上方的空白区域。有什么办法可以缩短这个时间？
@niceguy 抱歉，我不确定。
没关系，我想通了，要编辑原始帖子的解决方案。再次感谢。
@niceguy 我正在尝试使用tags$style(
@niceguy 我错过了head_auth 部分。您的更新中不错的选择