闪亮的应用程序不再启动

Question

我的闪亮应用程序的问题是它不再启动了。可以通过以下链接访问它：https://buchmann.shinyapps.io/RevealedTechnologicalAdvantage/

它总是工作正常，但是当我今天尝试启动时，我收到了错误消息：

An error has occurred

The application failed to start.

Loading required package: RCurl
Loading required package: bitops
Error in guess(varying) : 
  failed to guess time-varying variables from their names
Calls: local ... source -> withVisible -> eval -> eval -> reshape -> guess
Execution halted

当我在RStudio

中启动它时，我也一样

我再次部署它，但结果是一样的。

有人能告诉我错误信息的含义吗？

非常感谢！ 托拜厄斯

＃

这是代码：

ui.r

require(rCharts)

options(RCHART_LIB = 'polycharts')

l = c("Electrical machinery, apparatus, energy",
      "Audio-visual technology",
      "Telecommunications",
      "Digital communication",
      "Basic communication processes",
      "Computer technology",
      "IT methods for management",
      "Semiconductors",
      "Optics",
      "Measurement",
      "Analysis of biological materials",
      "Control",
      "Medical technology",
      "Organic fine chemistry",
      "Biotechnology",
      "Pharmaceuticals",
      "Macromolecular chemistry, polymers",
      "Food chemistry",
      "Basic materials chemistry",
      "Materials, metallurgy",
      "Surface technology, coating",
      "Micro-structural and nano-technology",
      "Chemical engineering",
      "Environmental technology",
      "Handling",
      "Machine tools",
      "Engines, pumps, turbines",
      "Textile and paper machines",
      "Other special machines",
      "Thermal processes and apparatus",
      "Mechanical elements",
      "Transport",
      "Furniture, games",
      "Other consumer goods",
      "Civil engineering")

shinyUI(pageWithSidebar(

headerPanel("RTA by 'Schmoch field' Germany and Turkey"),

  sidebarPanel(
        selectInput(inputId = "field",
                label = "Select field",
                choices = l,
                selected = "Electrical machinery, apparatus, energy")
  ),

  mainPanel(
        showOutput("chart2", "polycharts"),
        showOutput("chart1", "polycharts")
  )
))

server.r

share_share_de <- read.csv("share_share_de.csv", header = TRUE, sep = ",", check.names = FALSE)

share_share_tr <- read.csv("share_share_tr.csv", header = TRUE, sep = ",", check.names = FALSE)

require(rCharts)

options(RCHART_WIDTH = 800)

l = c("Electrical machinery, apparatus, energy",
      "Audio-visual technology",
      "Telecommunications",
      "Digital communication",
      "Basic communication processes",
      "Computer technology",
      "IT methods for management",
      "Semiconductors",
      "Optics",
      "Measurement",
      "Analysis of biological materials",
      "Control",
      "Medical technology",
      "Organic fine chemistry",
      "Biotechnology",
      "Pharmaceuticals",
      "Macromolecular chemistry, polymers",
      "Food chemistry",
      "Basic materials chemistry",
      "Materials, metallurgy",
      "Surface technology, coating",
      "Micro-structural and nano-technology",
      "Chemical engineering",
      "Environmental technology",
      "Handling",
      "Machine tools",
      "Engines, pumps, turbines",
      "Textile and paper machines",
      "Other special machines",
      "Thermal processes and apparatus",
      "Mechanical elements",
      "Transport",
      "Furniture, games",
      "Other consumer goods",
      "Civil engineering")

shinyServer(function(input, output) {

output$chart2 <- renderChart({

FIELD = as.character (which (l == input$field))

sub <-  share_share_tr [, c ("Prio_Year", FIELD)]

colnames (sub) <- c("Prio_Year", "value")

p2 <- rPlot(value ~ Prio_Year, type = 'line', data = sub)

 p2$guides(y = list(min = 0, title = ""))

 p2$guides(y = list(title = ""))

 p2$addParams(height = 300, dom = 'chart2', title = "Turkey")

return(p2)
   })

 output$chart1 <- renderChart({

FIELD = as.character (which (l == input$field))

 sub <-  share_share_de [, c ("Prio_Year", FIELD)]

 colnames (sub) <- c("Prio_Year", "value")

 p2 <- rPlot(value ~ Prio_Year, type = 'line', data = sub)

 p2$guides(y = list(min = 0, title = ""))

p2$guides(y = list(title = ""))

p2$addParams(height = 300, dom = 'chart1', title = "Germany")

return(p2)
     })  
 })