shinydashboardplus UI is Continuously bouncing. How to stop this? (Video of UI attached in zip File)

[kmaheshkulkarni]

The Video Of UI Bouncing is in below Zip File. Bounsing UI.zip

[DivadNojnarg]

I would need your code to investigate for errors

[kmaheshkulkarni]

No there is no error in the code. The UI is Just bouncing. I think this is not a code part. But still, I'll attach my UI.R file

if(interactive()){ library(shiny) library(shinydashboardPlus) dashboardPagePlus( dashboardHeaderPlus(disable = TRUE), dashboardSidebar(disable = TRUE, tags$head( includeCSS(path = "styles.css")

)),
dashboardBody(shinyEffects::setShadow(class = "box"),
              #shinyEffects::setZoom(class = "box"),
              #shinyEffects::setShake(class = "box"),
                  fluidRow(
                    boxPlus(
                      title = "Histogram",
                      closable = TRUE,
                      width = 6,
                      collapsible = TRUE,
                      withSpinner(plotlyOutput("histogram_plot", height = 400))
                    ),
                    boxPlus(
                      title = "Normal Distribution",
                      closable = TRUE,
                      width = 6,
                      collapsible = TRUE,
                      withSpinner(plotlyOutput("normal_distribution_plot", height = 400))
                    )
                  ),
                  fluidRow(
                    boxPlus(
                      title = "Control Chart",
                      closable = TRUE,
                      width = 12,
                      collapsible = TRUE,
                      withSpinner(plotlyOutput("Control_Chart", height = 700))
                    )
                  )
                ),
                collapse_sidebar = TRUE,
                enable_preloader = TRUE, loading_duration = 3)

}

[kmaheshkulkarni]

I Can't share server.R with you it was confidential code.

[DivadNojnarg]

I understand about the confidentiality issue. However, it will be hard to help you with so few details. What do you have in style.css? Where is the angular part? It would be nice to check what happens in the javascript console. When I run your code (without style.css), everything is ok:

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

ui <- dashboardPagePlus(
  dashboardHeaderPlus(disable = TRUE),
  dashboardSidebar(
    #disable = TRUE, 
    #tags$head(
    #  includeCSS(path = "styles.css")
    #)
  ),
  dashboardBody(
    shinyEffects::setShadow(class = "box"),
    #shinyEffects::setZoom(class = "box"),
    #shinyEffects::setShake(class = "box"),
    fluidRow(
      boxPlus(
        title = "Histogram",
        closable = TRUE,
        width = 6,
        collapsible = TRUE,
        "Blabla"
        #withSpinner(plotlyOutput("histogram_plot", height = 400))
      ),
      boxPlus(
        title = "Normal Distribution",
        closable = TRUE,
        width = 6,
        collapsible = TRUE,
        "Blabla"
        #withSpinner(plotlyOutput("normal_distribution_plot", height = 400))
      )
    ),
    fluidRow(
      boxPlus(
        title = "Control Chart",
        closable = TRUE,
        width = 12,
        collapsible = TRUE,
        "Blabla"
        #withSpinner(plotlyOutput("Control_Chart", height = 700))
      )
    )
  ),
  collapse_sidebar = TRUE,
  enable_preloader = TRUE, 
  loading_duration = 3
)

server <- function(input, output) {}

shinyApp(ui, server)

Finally, I am afraid that shiny is not designed to work with angular. I know that some react components work as shown here: https://github.com/alandipert/react-widget-demo