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时，在这种情况下总是存在错误：“响应”必须具有两个级别

Answer 1

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

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

如何导入csv，使其反应并创建图

1 个答案: