你好。
我想从 Shiny 管理器中删除“请验证”文本元素。
我尝试过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"=""))
最佳答案
考虑使用set_labels
set_labels(
language = "en",
"Please authenticate" = "")
-输出
关于html - 从shinymanager中删除html元素，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/68537842/