闪亮上传CSV文件并根据输入绘制数据

Question

我正在尝试为我的Shiny Web App提供将.csv文件上传到Shiny的功能，然后可以从.csv文件中选择（Watts，Amps或Volts）使用基于选择输入的折线图进行绘图。选择输入选项应根据.csv文件中的列标题进行更改（如：names(file)）。我的数据集在这里：CSV Data Set

到目前为止我的代码如下。我的ui.R没问题，我只需要帮助server.R。只要Select Input根据上传文件的标题进行更改，我就不关心绘制哪个图。我使用了Dygraph，但可能会有更好的折线图。

ui.R

shinyUI(fluidPage(
  navbarPage("Engineering Data",
        tabPanel("Data Set",
column(5, offset = 1,   
                  fileInput('file1', 'Choose file to upload',
                     accept = c(
                       'text/csv',
                       'text/comma-separated-values',
                       'text/tab-separated-values',
                       'text/plain',
                       '.csv',
                       '.tsv'
                     )
           ),

     #File Upload for Shiny Framework
     tags$hr(),
     checkboxInput('header', 'Header', TRUE),
     radioButtons('sep', 'Separator',
                  c(Comma=',',
                    Semicolon=';',
                    Tab='\t'),
                  ','),
     selectizeInput("channel", label = "Choose a Channel",
                    choices = NULL)),
  # Graph Output
  fluidRow(
    column(12, some_graph_output("chart")
    ))

server.R

我需要一些帮助......