(Shiny, R) Создание гистограммы из CSV-файла (с возможностью выбора колонки через поле со списком/Выбор входа.

Question

У меня есть еще одна проблема с моим Aplication. Мне нужно добавить функцию гистограммы к ней.

На третьем приложении закладке следует создать гистограмма из загруженного файла (столбец выбирается через поле со списком/selectinput)

Приложение может фактически создать выпадающий с колоннами из CSV файла

Но когда я хочу сделать гистограмму, на вкладке «гистограмма отображает только сообщение об ошибке:..

ERROR: object of type 'closure' is not subsettable 

Я не знаю, что я сделал неправильно.

Существует код

ui <- shinyUI(fluidPage(
    titlePanel("Aplikacja testowa nr 6. Praca z plikiem- wybór kolumny"), 

    sidebarLayout(
    sidebarPanel(
     fileInput("file", label = h3("Wgraj Plik")), 
     checkboxInput(inputId = 'header', label = 'Pierwszy wers to etykiety', value = FALSE), 
     radioButtons(inputId = 'sep', label = 'Co jest separatorem', choices = c("Przecinek"=',',"Średnik"=';',"Tabulator"='\t', "Spacja"=''), selected = ','), 

     checkboxGroupInput("choices1", label = h3("Wybierz Kolumny"), choices = NULL), 
     # there is combobox to pick column 
     selectInput("combobox", label = h3("(Histogram) Wybierz kolumne"), choices = NULL) 





    ), 

    mainPanel(
     uiOutput("tb") 
    ) 
) 
)) 

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

    data <- reactive({ 
    file1 <- input$file 
    if(is.null(file1)){return()} 
    dataSet <- read.csv(file=file1$datapath, sep=input$sep, header = input$header) 

    updateCheckboxGroupInput(session, "choices1", choices = colnames(dataSet)) 
     # this line updates selection in combobox 
    updateSelectInput(session, "combobox", choices = colnames(dataSet)) 

    dataSet 
    }) 

    output$table <- renderTable({ 
    if(is.null(data())){return()} 
    data()  
    }) 

    output$table2 <- renderTable({ 


    if(is.null(data()) || is.null(input$choices1)){return()} 
    data()[input$choices1]  
    }) 

# there is part of file where i make histogram 
output$wykres <- renderPlot({ 
x <- data[0, input$combobox] 
hist(x , col = 'blue', border = 'white') 
}) 


    output$tb <- renderUI({ 
    if(is.null(data())) 
     h5("Wgraj Plik jeśli chcesz cokolwiek zrobić.") 
    else 
     tabsetPanel(tabPanel("dane", tableOutput("table")),tabPanel("wybrane kolumny", tableOutput("table2")), tabPanel("Histogram", plotOutput("wykres"))) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

Проблема заключалась в том, что вы забыли добавить () к data в следующем фрагменте кода.

output$wykres <- renderPlot({ 
    # x <- data[, input$combobox] # zapomniales klamry 
    x <- data()[, input$combobox] 
    hist(x , col = 'blue', border = 'white') 
    }) 

я дополнительно расширил свой код, чтобы избежать передачи дискретных переменных в hist функции, создавая тревогу shinyBS пакета и добавления req(is.numeric(x)).

library(shinyBS) 

ui <- shinyUI(fluidPage(
    titlePanel("Aplikacja testowa nr 6. Praca z plikiem- wybór kolumny"), 

    sidebarLayout(
    sidebarPanel(
     fileInput("file", label = h3("Wgraj Plik")), 
     checkboxInput(inputId = 'header', label = 'Pierwszy wers to etykiety', value = FALSE), 
     radioButtons(inputId = 'sep', label = 'Co jest separatorem', choices = c("Przecinek"=',',"Średnik"=';',"Tabulator"='\t', "Spacja"=''), selected = ','), 

     checkboxGroupInput("choices1", label = h3("Wybierz Kolumny"), choices = NULL), 
     # there is combobox to pick column 
     selectInput("combobox", label = h3("(Histogram) Wybierz kolumne"), choices = NULL) 

    ), 

    mainPanel(
     uiOutput("tb") 
    ) 
) 
)) 

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

    data <- reactive({ 
    file1 <- input$file 
    if(is.null(file1)){return()} 
    dataSet <- read.csv(file=file1$datapath, sep=input$sep, header = input$header) 

    updateCheckboxGroupInput(session, "choices1", choices = colnames(dataSet)) 
    # this line updates selection in combobox 
    updateSelectInput(session, "combobox", choices = colnames(dataSet)) 

    dataSet 
    }) 

    output$table <- renderTable({ 
    if(is.null(data())){return()} 
    data()  
    }) 

    output$table2 <- renderTable({ 


    if(is.null(data()) || is.null(input$choices1)){return()} 
    data()[input$choices1]  
    }) 

    # there is part of file where i make histogram 
    output$wykres <- renderPlot({ 
    x <- data()[, input$combobox] 

    if (!is.numeric(x)) { 
     createAlert(session, "alarm", alertId = "niebezpieczenstwo", 
        title = "Niebezpieczenstwo: ", 
        content = "Histogram przyjmuje tylko wartosci ciagle!", 
        style = "danger", dismiss = TRUE, append = TRUE) 
    } 
    if (is.numeric(x)) { 
     closeAlert(session, "niebezpieczenstwo") 
    } 

    req(is.numeric(x)) 
    hist(x , col = 'blue', border = 'white') 
    }) 


    output$tb <- renderUI({ 
    if(is.null(data())) 
     h5("Wgraj Plik jeśli chcesz cokolwiek zrobić.") 
    else 
     tabsetPanel(tabPanel("dane", tableOutput("table")), 
        tabPanel("wybrane kolumny", 
          tableOutput("table2")), 
        tabPanel("Histogram", 
          bsAlert("alarm"), 
          plotOutput("wykres"))) 
    }) 
} 

shinyApp(ui, server)