在R

Question

我无法使用highcharter在R中创建交互式柱形图。这是我要使用的代码：

library(highcharter)
library(shiny)
library(shinydashboard)
library(extrafontdb)
testdata<-read.table("Matrix_Mean_sym.txt", header=TRUE)
testdata2<-t(testdata)
testdatase<-read.table("Matrix_SE_sym.txt", header=TRUE)
testdatase2<-t(testdatase)

ui<-dashboardPage(...
tabItem(tabName = "graph",
                           fluidRow(
                             box(title= "Gene Selection",
                                 selectizeInput(inputId = "gene", "Gene Symbol:", 
                                                choices = colnames(testdata2), 
                                                selected="CD8A", 
                                                options = NULL,
                                                multiple = FALSE)),
                             box(title= "Graph of Gene Expression",
                                 highchartOutput("genePlot"))
                           ))
server<- function(input, output) {
  output$genePlot <- {
   renderHighchart({
    require(input$gene)
  highchart() %>%
    hc_add_series(data = list(testdata2[, input$gene]), type="column") %>%
    hc_xAxis(categories = c('CD14+', 
                            'CD19+',
                            'CD4+',
                            'CD56+',
                            'CD8+',
                            'Neutrophils',
                            'nRBCs',
                            'WB')) %>%
    hc_title(text= "Graph of Gene Expression")      
})}

我知道我没有提供有效的数据集，但这是来自140904元素矩阵的。每次运行此代码时出现的错误是：
如果（！已加载）{：   条件的长度> 1，并且仅使用第一个元素 c（“正在加载必需的软件包：$”，“正在加载必需的软件包：输入”，“正在加载必需的软件包：基因”） 失败，错误：“'package'的长度必须为1” 输入到asJSON（keep_vec_names = TRUE）的是一个命名向量。在jsonlite的未来版本中，将不支持此选项，命名向量将转换为数组而不是对象。如果要输出JSON对象，请改用命名列表。请参阅？toJSON。
 任何帮助，将不胜感激。谢谢！