Два wordcloud2 на одной блестящей странице - PullRequest
Новая
       45

Два wordcloud2 на одной блестящей странице

0 голосов
/ 01 марта 2019

Я пытаюсь поместить два wordcloud2 в мою блестящую панель, а второе не показывает

они оба в теле, когда я проверяю страницу

enter image description here

мой сценарий 

library(wordcloud2)
library(shinydashboardd)
# Global variables can go here
n <- 1

# Define the UI
ui <- dashboardPage(
   box(wordcloud2Output('wordcloud2')),
   box(wordcloud2Output('wordcloud3'))
)


# Define the server code
server <- function(input, output) {
  output$wordcloud2 <- renderWordcloud2({
    wordcloud2(demoFreq)
  })

  output$wordcloud3 <- renderWordcloud2({
    wordcloud2(demoFreq)
  })

}
shinyApp(ui = ui, server = server)

edit: снимок экрана, когда я использую сценарий ответа, 2-го слова не будет

enter image description here

вывод html с обоими wordcloud div 

<!DOCTYPE html>
<html>
<head>

  <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
  <script type="application/shiny-singletons"></script>
  <script type="application/html-dependencies">json2[2014.02.04];jquery[1.12.4];shiny[1.2.0];htmlwidgets[1.3];wordcloud2[0.0.1];wordcloud2-binding[0.2.1];bootstrap[3.3.7]</script>
<script src="shared/json2-min.js"></script>
<script src="shared/jquery.min.js"></script>
<link href="shared/shiny.css" rel="stylesheet" />
<script src="shared/shiny.min.js"></script>
<script src="htmlwidgets-1.3/htmlwidgets.js"></script>
<link href="wordcloud2-0.0.1/wordcloud.css" rel="stylesheet" />
<script src="wordcloud2-0.0.1/wordcloud2-all.js"></script>
<script src="wordcloud2-0.0.1/hover.js"></script>
<script src="wordcloud2-binding-0.2.1/wordcloud2.js"></script>
<meta name="viewport" content="width=device-width, initial-scale=1" />
<link href="shared/bootstrap/css/bootstrap.min.css" rel="stylesheet" />
<script src="shared/bootstrap/js/bootstrap.min.js"></script>
<script src="shared/bootstrap/shim/html5shiv.min.js"></script>
<script src="shared/bootstrap/shim/respond.min.js"></script>

</head>

<body>
  <div class="container-fluid">
    <div id="wordcloud2" style="width:100%; height:400px; " class="wordcloud2 html-widget html-widget-output"></div>
    <div id="wordcloud3" style="width:100%; height:400px; " class="wordcloud2 html-widget html-widget-output"></div>
  </div>
</body>

</html>

на этом снимке экрана нет видимости;наследовать на 2-м слове облако

enter image description here

1 Ответ

0 голосов
/ 01 марта 2019

У меня нет проблем с этим.Я не могу запустить ваш код, потому что в нем есть несколько ошибок (вы написали shinydashboardd вместо shinydashboard, а ваш пользовательский интерфейс не запускается, потому что функция dashboardPage() не может принимать два поля - параметры), но еслипросто исправьте эти ошибки, все работает нормально: 

library(wordcloud2)
library(shiny)

ui <- fluidPage(
        wordcloud2Output('wordcloud2'),
        wordcloud2Output('wordcloud3')
)

server <- function(input, output) {
        output$wordcloud2 <- renderWordcloud2({
                wordcloud2(demoFreq)
        })

        output$wordcloud3 <- renderWordcloud2({
                wordcloud2(demoFreq)
        })
}

shinyApp(ui = ui, server = server)

(В будущем, прежде чем публиковать вопрос с кодом, убедитесь, что указанный код может работать, если, конечно, проблема не в самом коде)

...