主面板未以闪亮(R)显示

时间:2019-05-20 09:19:36

标签: r shiny

我正在尝试显示一些应用程序(发光,R),并且主面板未显示(左侧面板正常-selectInput和checkboxInput)。我在这里使用PrzemysławBiecek的应用程序:

http://pbiecek.github.io/Przewodnik/Programowanie/jak_tworzyc_aplikajce2.html

我在Firefox,Internet Explorer和Google Chrome中尝试过。我的工作计算机上存在问题,个人笔记本电脑上一切正常。如果它有用并且有意义-我的工作在计算机上没有管理员权限。

ui.R
library(shiny)
library(PogromcyDanych)

nazwySeriali <- sort(levels(serialeIMDB$serial))

shinyUI(fluidPage(
  titlePanel("Oceny kolejnych odcinków seriali'"),
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "wybranySerial", 
                  label = "Wybierz serial do analizy",
                  choices = nazwySeriali,
                  selected = "Friends"),
      checkboxInput(inputId = "liniaTrendu",
                    label = "Czy zaznaczyć linię trendu?",
                    value = TRUE)
    ),
    mainPanel(
      plotOutput("trend"),
      verbatimTextOutput("model")
    )
  )
))

server.R
library(PogromcyDanych)
library(ggplot2)

shinyServer(function(input, output) {
  output$trend = renderPlot({
    serial <- serialeIMDB[serialeIMDB$serial == input$wybranySerial, ]

    pl <- ggplot(serial, aes(id, ocena, size=glosow, color=sezon)) +
      geom_point() + xlab("Numer odcinka")
    if (input$liniaTrendu) {
      pl <- pl + geom_smooth(se=FALSE, method="lm", size=3)
    }
    pl
  })

  output$model = renderPrint({
    serial <- serialeIMDB[serialeIMDB$serial == input$wybranySerial, ]

    summary(lm(ocena~id, serial))
  })
})

期望的应用程序在这里:

http://mi2.mini.pw.edu.pl:8080/Przewodnik/shiny2/

编辑:

我发现升级到R 3.6.0和RStudio的新版本是一种可能的解决方案。现在可以了,但是还有很多其他条件,例如,现在我已经从管理员帐户安装了所有用于闪亮的软件包/文件(使用RStudio)。

0 个答案:

没有答案