在闪亮的应用程序中上传文件，并通过textInput（）设置其名称
Upload a file in a shiny app and set its name through a textInput()

我必须检修服务器和ui才能使用内置的闪亮功能来简化此操作。 话虽如此，这可以满足您的所有需求。 请注意，这里我没有显示任何表格制作或数据处理，只是文件重命名和上传。

# Define UI for data upload app ----
ui <- fluidPage(

  # App title ----
  titlePanel("Uploading Files"),

   # Sidebar layout with input and output definitions ----
  sidebarLayout(

    # Sidebar panel for inputs ----
    sidebarPanel(

       # Input: Select a file ----
       fileInput("file1", "Choose CSV File",
                multiple = FALSE,
                accept = c("text/csv",
                       "text/comma-separated-values,text/plain",
                       ".csv")),
      checkboxGroupInput("datasetSelector","Data Files", choices=c("D.B")),
      textInput("filename","Set Filename",value = "Set Name")

    ),

    # Main panel for displaying outputs ----
      mainPanel(

      # Output: Data file ----
      tableOutput("contents")

    ) 
  )
)
#server.r
server <- function(input, output, session) {

  observeEvent(input$filename, {

  req(input$file1)
  Name<-input$filename
  updateCheckboxGroupInput(session,"datasetSelector", choices=c("D.B",Name))
  })

  observeEvent(input$file1, {

    Data<-input$file1$datapath
    Name<-input$filename
    New <- read.csv(Data)
    updateCheckboxGroupInput(session,"datasetSelector", 
      choices=c("D.B",input$file1$name))
  })

  #Data proccesing code 
}

我使用了checkboxGroupInput和textInput ，它们是可以在UI中定义的闪亮输入。 这些设置了标准输入，并允许我们使用updateGroupCheckboxInput功能，这些功能无法在常规UI呈现中使用。 现在，我们可以观察到fileInput和textInput任何输入，并根据完成的时间运行代码。

用户上载文件时，复选框的名称将设置为上载的文件名。 当用户更改input$filename我们可以观察到并相应地更改复选框名称。 这样，无论何时上传新文件，它都会用上传中的新文件名覆盖现有的复选框名称，而该文件名又可以被文本字段的任何输入所覆盖。

摆脱反应式数据库，只需观察复选框中的任何输入，我们就可以根据选中的框数来简单地分配数据，因为如果选中了两个，则应该加载数据库和上载的文件。 如果选中一个，我们可以检查“ DB”的名称，分配的文件名或文本字段名称，并相应显示正确的文件。 仅在选中此复选框时，才始终加载数据库文件，而仅加载输入文件。 除非有一个上载的文件，否则没有复选框，因此该文件将覆盖我们。

#Data Processing Code
observeEvent(input$datasetSelector, {

  #Constant
  D.B<- read.csv("somthing.csv", stringsAsFactors = F)

  Selected<-input$datasetSelector
  L_Sel<-length(Selected)

  if(L_Sel==2){
    Data<-read.csv(input$file1$datapath)
    dataSelector<-list(Data,D.B)
    print("A")
  }else if(Selected=="D.B"){
    dataSelector<-D.B
    print("B")
  }else if(Selected==input$file1$name|Selected==input$filename){
    Data<-read.csv(input$file1$datapath)
    dataSelector<-Data
    print(Data)
    print("C")
  }else{
    dataSelector=NA
  }

  output$contents<-renderTable({
    dataSelector
  })

  })

请注意，我们还将输出也放置在复选框的observeEvent下，因此除非您在部署时为复选框设置了选定的值，否则不会初始化任何表。 我不确定您如何显示两个表，这将需要一些工作，但是仅在复选框的if / statement和observeEvent中工作。

该程序知道何时选中两个复选框并列出两个文件/数据的列表，但是我不确定您打算如何显示它们。 您可能希望将该工作包括在if(L_Sel==2){..}部分下。