如何导入 csv，使其具有反应性并创建绘图

Question

我正在尝试创建一个闪亮的应用程序来导入不同的 csv 并使用例如包 pROC 创建绘图。

library(shiny)
library(datasets)

ui <- shinyUI(fluidPage(
    titlePanel("Column Plot"),
    tabsetPanel(
        tabPanel("Upload File",
                 titlePanel("Uploading Files"),
                 sidebarLayout(
                     sidebarPanel(
                         fileInput('file1', 'Choose CSV File',
                                   accept=c('text/csv', 
                                            'text/comma-separated-values,text/plain', 
                                            '.csv')),
                         tags$br(),
                         checkboxInput('header', 'Header', TRUE),
                         radioButtons('sep', 'Separator',
                                      c(Comma=',',
                                        Semicolon=';',
                                        Tab='\t'),
                                      ','),
                         radioButtons('quote', 'Quote',
                                      c(None='',
                                        'Double Quote'='"',
                                        'Single Quote'="'"),
                                      '"')

                     ),
                     mainPanel(
                         tableOutput('contents')
                     )
                 )
        ),
        tabPanel("First Type",
                 pageWithSidebar(
                     headerPanel('My First Plot'),
                     sidebarPanel(


                         selectInput('xcol', 'X Variable', ""),
                         selectInput('ycol', 'Y Variable', "", selected = "")

                     ),
                     mainPanel(
                         plotOutput('MyPlot')
                     )
                 )
        )

    )
)
)

server <- shinyServer(function(input, output, session) {



    data <- reactive({ 
        req(input$file1) 

        inFile <- input$file1 


        df <- read.csv(inFile$datapath, header = input$header, sep = input$sep,
                       quote = input$quote)




        updateSelectInput(session, inputId = 'xcol', label = 'X Variable',
                          choices = names(df), selected = names(df))
        updateSelectInput(session, inputId = 'ycol', label = 'Y Variable',
                          choices = names(df), selected = names(df)[2])

        return(df)
    })

    output$contents <- renderTable({
        data()
    })

    output$MyPlot <- renderPlot({
        x <- data()[, c(input$xcol, input$ycol)]
        pROC::roc(input$xcol,input$ycol)

    })
})

shinyApp(ui, server)

我曾尝试使用博客中提供的不同代码，但是，我没有找到任何相似的东西。可以重现简单的图，比如直方图，但是当我尝试导入包 proc 时，在这种情况下总是会出现错误：'response' 必须有两个级别

Answer 1

您在服务器中获得的 input 变量列出 xcol 和 ycol 中的 列名称 。 pROC 的 roc 函数需要数据本身，您需要从数据中获取这些数据，例如：

pROC::roc(x[[input$xcol]], x[[input$ycol]])

如何导入 csv，使其具有反应性并创建绘图

How to import a csv, makes it reactive and create plots

r

roc

shiny

shiny-reactivity