Shiny 如何在屏幕上显示上传的csv内容

我的

ui.R

library(shiny)
library(stats)
library(caret)

shinyUI(fluidPage(
   titlePanel("Predicting Resources for Vessel"),
   title = "Resource Prediction",

   sidebarLayout(
    sidebarPanel(
        fileInput("file1", "Choose a Import BAPLE(.CSV) file to upload:",
                  accept = c("text/csv", "text/comma-separated-values, text/plain", ".csv")),

        fileInput("file2", "Choose a Export BAPLE(.csv) file to upload:",
                  accept = c("text/csv", "text/comma-separated-values, text/plain", ".csv")),

        fileInput("file3", "Choose a Import/Export containers yard location(.CSV) file to upload:",
                  accept = c("text/csv", "text/comma-separated-values, text/plain", ".csv")),

        tags$hr(),
        h4("Manual Input:"),
        numericInput("Restow_40","Total Restows for 40ft Container:", 0, min = 0, max = 999999, step = 1),
        textInput("Berth","Vessel Berth Location (CB3/CB4)"),
        actionButton("submit", "Submit")

        ),
    mainPanel(
        tabsetPanel(
          tabPanel("Raw Data", dataTableOutput("data")),
          tabPanel("Output", verbatimTextOutput("pred_output"))

        )
  )
    )
))

这是我的

server.r

文件

library(shiny)
library(stats)
#library(caret)
library(mlr)
library(data.table)

shinyServer(function(input, output) {

 ######################### Reading the required files ###################################

  import_baple <- reactive({
    inFile <- input$file1
    if (is.null(inFile)) return(NULL)
    read.csv(inFile$datapath)
})

  export_baple <- reactive({
    inFile <- input$file2
    if (is.null(inFile)) return(NULL)
    read.csv(inFile$datapath)
  })

  import_export_yard <- reactive({
    inFile <- input$file3
    if (is.null(inFile)) return(NULL)
    read.csv(inFile$datapath)
  })

  output$data <- renderDataTable({
    import_baple()
  })

  output$data <- renderDataTable({
    export_baple()
  })

  output$data <- renderDataTable({
    import_export_yard()
  })
})

库（闪亮）
图书馆（统计）
#图书馆（插入符号）
图书馆（mlr）
库（数据表）
shinyServer（功能（输入、输出）{
#########################读取所需的文件###################################
import_baple每个输入/输出元素都需要一个唯一的标识符，否则Shiny不知道使用给定标识符的元素中的哪一个。因此，您有：

tabPanel("Raw Data", dataTableOutput("data")) 

在您的UI和：

output$data <- renderDataTable({
  import_baple()
})

output$data <- renderDataTable({
  export_baple()
})

output$data <- renderDataTable({
  import_export_yard()
})

output$data每个输入/输出元素都需要一个唯一的标识符，否则Shiny不知道使用给定标识符的元素中的哪一个。因此，您有：

tabPanel("Raw Data", dataTableOutput("data")) 

在您的UI和：

output$data <- renderDataTable({
  import_baple()
})

output$data <- renderDataTable({
  export_baple()
})

output$data <- renderDataTable({
  import_export_yard()
})

输出$data