0

我是 Shiny 的新手，正在尝试将和弦图添加到闪亮的服务器。当我在 RStudio 中点击 runApp 按钮时，我让应用程序运行并生成 UI，但随后立即关闭，并且在 RConsole 窗口中出现以下错误：（结构中的错误（函数（输入，输出）：无法找到函数“渲染图”。

不幸的是，我无法附加数据，因为它是专有的，但我只是创建一个邻接矩阵来生成和弦图。Chord 情节在 Shiny 之外运行良好。提前致谢！

我的用户界面和服务器代码如下：

library(shiny)

# Starting line
shinyUI(fluidPage(

  # Application title
  titlePanel("Chord Chart"),

  # Sidebar
  sidebarLayout(
    sidebarPanel(
      #Data selection for Chord Chart
      selectInput("data","Select a Dataset:",
                  c("Marine"))),

    #The plot created in server.R is displayed
    mainPanel(
      plotOutput("plot")
)))
)

library(circlize)
library(dplyr)
library(reshape2)
library(manipulate)
library(shiny)


# read marine summaries
marine <- readfile("C:/Personal/R/MarineDataSummary.csv")

# group and summarize by O-D
marine.sum <- marine %>%group_by(Handling_Port, OD_Port_Country) %>%
  summarise(tons <-sum(tonnes))    # prepare pivot table
marine.sum1 <- acast(marine.sum, Handling_Port~OD_Port_Country, value.tons="z")    # reshape matrix
marine.sum1[is.na(marine.sum1)] <- 0    # set NA to zero

#initialization of server.R
shinyServer(function(input, output) {

  output$plot <- renderplot({
    c <- chordDiagram(marine.sum1,annotationTrack="grid",preAllocateTracks=list(track.height = 0.3))
    ##change axis
    c <- c + circos.trackPlotRegion(track.index=1, panel.fun=function(x,y) {
      xlim = get.cell.meta.data("xlim") 
      ylim = get.cell.meta.data("ylim")
      sector.name=get.cell.meta.data("sector.index")
      circos.text(mean(xlim), ylim[1], sector.name,facing="clockwise",
                  niceFacing=TRUE,adj=c(0,0.4), cex = 0.4)},bg.border=NA)
    print(c)

  })
})
4

0 回答 0