rCharts 不会在闪亮的应用程序中呈现情节
rCharts doesn't render the plot in shiny app
我正在使用以下简单闪亮的应用程序代码片段在主面板中绘制输出。但它并没有按预期渲染情节。它在浏览器中不显示任何内容。但是当我 运行 只有 mPlot 部分时,它会在 RStudio 中正确显示所有交互的绘图。
ui.R
library(shiny)
library(rCharts)
ui<-fluidPage(
headerPanel("Economics data with rCharts"),
mainPanel(
showOutput("myChart","polycharts")
)
)
server.R
library(shiny)
library(rCharts)
require(datasets)
server<-function(input,output){
output$myChart<-renderChart({
data(economics, package = 'ggplot2')
econ <- transform(economics, date = as.character(date))
m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',
data = econ)
m1$set(pointSize = 0, lineWidth = 1)
return(m1)
})
}
您好,您用错了 JS 库,它是 morris,不是 polycharts,请尝试:
# ui.R
library(shiny)
library(rCharts)
ui<-fluidPage(
headerPanel("Economics data with rCharts"),
mainPanel(
showOutput("myChart","morris")
)
)
# server.R
library(shiny)
library(rCharts)
require(datasets)
server<-function(input,output){
output$myChart<-renderChart2({
data(economics, package = 'ggplot2')
econ <- transform(economics, date = as.character(date))
m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',
data = econ)
m1$set(pointSize = 0, lineWidth = 1)
return(m1)
})
}
shinyApp(ui = ui, server = server)
我正在使用以下简单闪亮的应用程序代码片段在主面板中绘制输出。但它并没有按预期渲染情节。它在浏览器中不显示任何内容。但是当我 运行 只有 mPlot 部分时,它会在 RStudio 中正确显示所有交互的绘图。
ui.R
library(shiny)
library(rCharts)
ui<-fluidPage(
headerPanel("Economics data with rCharts"),
mainPanel(
showOutput("myChart","polycharts")
)
)
server.R
library(shiny)
library(rCharts)
require(datasets)
server<-function(input,output){
output$myChart<-renderChart({
data(economics, package = 'ggplot2')
econ <- transform(economics, date = as.character(date))
m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',
data = econ)
m1$set(pointSize = 0, lineWidth = 1)
return(m1)
})
}
您好,您用错了 JS 库,它是 morris,不是 polycharts,请尝试:
# ui.R
library(shiny)
library(rCharts)
ui<-fluidPage(
headerPanel("Economics data with rCharts"),
mainPanel(
showOutput("myChart","morris")
)
)
# server.R
library(shiny)
library(rCharts)
require(datasets)
server<-function(input,output){
output$myChart<-renderChart2({
data(economics, package = 'ggplot2')
econ <- transform(economics, date = as.character(date))
m1 <- mPlot(x = 'date', y = c('psavert', 'uempmed'), type = 'Line',
data = econ)
m1$set(pointSize = 0, lineWidth = 1)
return(m1)
})
}
shinyApp(ui = ui, server = server)