CODEWITHSUNDEEP
htmlrshiny
niceguy
niceguy

Reputation: 157

remove html element from shinymanager


Hello.

I would like to remove the "Please authenticate" text element from shinymanager.
I have tried shinyjs html() function but I can't get it to work with elements from shinymanager. enter image description here

Sample Code:

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)

Thanks.

EDIT: As akron pointed out, I can remove the text with the set_labels() function in secure_app(). However, if you want to remove the leftover space you would have to add this argument as well:

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

Upvotes: 2

Views: 301

Answers (1)

akrun
akrun

Reputation: 887108

Consider using set_labels

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

-output

enter image description here

Upvotes: 2

Related Questions