daattali/shinyjs

Problem when adding authUI and mainUI with shinyjs

namrouche993 opened this issue · 2 comments

namrouche993 commented

Hello ,First thanks a lot for your work.
i want to include authentification UI in my app, so i use authUI and when Authentification is true, it's changes to mainUI

the app is openning but shinyjs function dont work

so here is a simple example (Old Faithful Geyser Data) :

library(shiny)
library(shinyjs)
library(shinyWidgets)


autnUI <- function() {

    #.... there is no need to that in this example, beacuse below i set  isAuth() to TRUE directly 
    
    }
    

# Define UI for application that draws a histogram
mainUI <- function() {

    fluidPage(
    useShinyjs(),  # Set up shinyjs
    
    # Application title
    titlePanel("Old Faithful Geyser Data"),

tags$head(tags$style("

#div1 {
display:none;
} 
"
)),




    # Sidebar with a slider input for number of bins 
    sidebarLayout(
        sidebarPanel(
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 50,
                        value = 30),
            
        actionBttn(inputId = "button1")
        ),

        # Show a plot of the generated distribution
        mainPanel(
           div(id="div1",
               plotOutput("distPlot")
            )
        )
    )
)
}

ui <- (htmlOutput("screen"))


# Define server logic required to draw a histogram
server <- function(input, output) {

    
    isAuth <- reactiveVal(value = TRUE)    
    
    output$screen <- renderUI({
        `if`(isAuth()==FALSE,       
             div(do.call(bootstrapPage, c("", authUI()))),
             div(do.call(bootstrapPage, c("", mainUI())))
        )
        
    })
    


    observe({
        onevent("mouseenter", "button1", show("div1"))    # when mouse is on button1, show div1
        onevent("mouseleave", "button1", hide("div1"))     # when mouse leave button1 ,hide div1
    })

    output$distPlot <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })

}

# Run the application 
shinyApp(ui = ui, server = server)

and when you change shinyApp() to shinyApp(ui = mainUI(), server = server) that's work fine , but of course i need to use authUI

daattali commented
  • ❤️1
namrouche993 commented

thanks a lot , it works fine now