Ответ: Как соединиться с fifleinput и ggplot без какого-либо выбора input? - PullRequest
Новая
       16

Ответ: Как соединиться с fifleinput и ggplot без какого-либо выбора input?

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

Я делаю свое первое блестящее приложение, используя блестящую панель инструментов. Я застрял в том, как разрешить пользователям загружать в блестящее приложение и показывать гистограмму (ggplot) в Shiny App.

Я уже завершил процесс загрузки данных (ввод файла с любыми файлами txt / CVS и отображение схемы на веб-сайте Shiny App). Но я не знаю, как показать график на веб-сайте приложения Shiny под другим именем вкладки, используя данные пользователя, загруженные на блестящую панель инструментов.

Пожалуйста, помогите мне, большое спасибо!

Ui ： 

    # Second tab content
    tabItem(tabName = "databrowse",
            fileInput('infile', 'Choose text/csv file to upload',
                      accept = c(
                          'text/csv',
                          'text/comma-separated-values',
                          '.csv'
                      )),
            radioButtons("separator","Separator: ",choices = c(";",",",":"), selected=",",inline=TRUE),
            DT::dataTableOutput("sample_table")
    ),

    # Third tab content
    tabItem(tabName = "Usage",
            plotlyOutput('MyPlot')
            )
    )

Сервер: 

df_products_upload <- reactive({
    inFile <- input$infile
    if (is.null(inFile))
        return(NULL)
    df <- read.csv(inFile$datapath, header = TRUE,sep = input$separator)
    return(df)
})

output$sample_table<- DT::renderDataTable({
    df <- df_products_upload()
    DT::datatable(df)
})

# Переменные: дата, время, использование 

#####################################

output$MyPlot <- renderPlot({
    hist(df())
    })
 ??????????????????# cannot figure out , how to output this plot   
###########################################
...