renderWordcloud2 blocks renderPlot from initially rendering

app.R

library(shiny)
library(shinydashboard)
library(wordcloud2)

data <- data.frame(term = c("A", "B", "C", "D", "E"), count = c(10, 15, 3, 5, 7))

body <- dashboardBody(
    fluidRow(
      box(
        plotOutput("barplot"),
        wordcloud2Output("wordcloud")
      )
    )
)

server <- function(input, output) {
  output$wordcloud <- renderWordcloud2({ wordcloud2(data) })
  output$barplot <- renderPlot({ barplot(data$count, names.arg = data$term) })
}

shinyApp(dashboardPage(dashboardHeader(), dashboardSidebar(), body), server)