Блестящее меню приложения нельзя использовать не в интерактивном режиме - PullRequest
0 голосов
/ 23 января 2020

Я новичок в использовании блестящего в R. Я пытаюсь развернуть приложение, которое я создал, которое работает на моей стороне, но не работает, когда я пытаюсь развернуть его. Вместо этого я получаю страницу ошибки с зелеными буквами, говорящими:

ошибка в значении [3L]: menu () не может использоваться неинтерактивно

Я использую один файл app.R, который имеет загружены следующие библиотеки:

library(shiny)
library(ggplot2)
library(dplyr)
library(ngram)
library(randomForest)


# Install spacyr
library(spacyr)
spacy_install()
spacy_initialize()

require(gridExtra)
require(xml2)
library(tidyverse)
library(quanteda)
library(readtext)
library(readr)
library(reshape2)
library(ggpubr)
library(DescTools)
library(corpus)
library(shinycssloaders)

library(cowplot)
library(yaml)



app.R содержит следующий пользовательский интерфейс:

ui <- fluidPage(
  titlePanel("some text here"),
  sidebarLayout(
    sidebarPanel(
      textAreaInput("some more text here", height="800px"),
      actionButton("run", label = "text")
    ),
    mainPanel(
      withSpinner(plotOutput("graph1")), withSpinner(plotOutput("graph2")), withSpinner(plotOutput("graph3"))
    )
  )
)

, а затем следующий сервер:

server <- shinyServer(function(input, output){
  observeEvent(input$run, {
    dataInput <- reactive({
      nyxlong <- text2pred(input$text)
    })


    # Graph 1
    output$graph1 <- renderPlot({

      # Code to create ggplot #1 


    })


    output$graph2 <- renderPlot({
      nyxlong <- dataInput()

      # Code to create second ggplot



    })


    output$graph3 <- renderPlot({
      nyxlong <- dataInput()

      # Code to create third ggplot

    })
  })

})


Мой инстинкт инстинктивен что есть библиотеки, которые shinyapps.io не умеет использовать. Есть ли другие проблемы с gui или функциями сервера? Есть ли другие пакеты, которые нужно загружать другим способом?

Спасибо.

...