Как импортировать CSV, сделать его реактивным и создавать графики - PullRequest
Новая
       60

Как импортировать CSV, сделать его реактивным и создавать графики

1 голос
/ 11 июня 2019

Я пытаюсь создать блестящее приложение, которое импортирует различные 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)

Я пытался использовать разные коды, доступные в блогах, однако я сделалне найти ничего подобного.Можно воспроизвести простые графики, например гистограммы, но когда я пытаюсь импортировать, например, пакетный процесс, в этом случае всегда возникают ошибки: «ответ» должен иметь два уровня

1 Ответ

0 голосов
/ 11 июня 2019

Переменная input, полученная на сервере, содержит имена столбцов в xcol и ycol.Функция pROC roc ожидает сами данные, которые вам нужно получить из ваших данных, например: 

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