Создание графа столбцов с использованием Highcharter в R

Question

У меня возникли проблемы при создании интерактивной столбчатой ​​диаграммы в R с использованием Highcharter. Вот код, с которым я пытаюсь работать:

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("Загрузка требуемого пакета: $", "Загрузка требуемого пакета: ввод", "Загрузка требуемого пакета: ген") Ошибка с ошибкой: '' пакет 'должен иметь длину 1' Входными данными для asJSON(keep_vec_names=TRUE) является именованный вектор. В будущей версии jsonlite эта опция не будет поддерживаться, и именованные векторы будут преобразовываться в массивы вместо объектов. Если вы хотите вывод объекта JSON, используйте вместо этого именованный список. Видите? ToJSON.
Любая помощь будет оценена. Спасибо!