我正在尝试显示一些应用程序(发光,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)。