在閃亮的應用程序中上傳文件，並通過textInput（）設置其名稱

Question

我下面有一個簡單的閃亮應用程序。 在此應用程序中，我希望用戶能夠上傳自己的csv，然后自動將其添加為另一個數據集“ DB”（我在原始應用程序中創建）下方的復選框組中的選擇。 我通過使用觀察者和一個在其中列出文件名的反應性列表來做到這一點。 新文件最初將具有其默認名稱，但隨后用戶可以使用“設置文件名” textInput（）將其更改為自己選擇的名稱。 然后，當用戶選擇文件時，它將顯示為表格。 問題是我缺少某些東西，當我添加第二個文件時，第一個文件變成NA，並且沒有顯示任何表。

#ui.r
library(shiny)
library(rlist)
# 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")),
      uiOutput("checkbox"),
      uiOutput("text")

    ),

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

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

    )

  )
)
#server.r
server <- function(input, output) {
  output$text<-renderUI({
  textInput("filename","Set Filename",value = "Set Name")
  })
  New <- reactive({
    req(input$file1)
    df <- read.csv(input$file1$datapath)

  })

  D.B <- reactive({
    if("D.B"%in% input$datasetSelector){
    x <- read.csv("something.csv", stringsAsFactors = F)
    }
  })

  fileOptions <- reactiveValues(currentOptions=c("D.B."))

  observeEvent(input$file1, {
    fileOptions$currentOptions = list.append(fileOptions$currentOptions, "New")
  })
  output$checkbox<-renderUI({
    if(length(fileOptions$currentOptions)==1){
    checkboxGroupInput("datasetSelector","Specify the datasets to compare:", choices = fileOptions$currentOptions[[1]]
    )}
    else{
    names(fileOptions$currentOptions)[[2]]<-input$filename  
    checkboxGroupInput("datasetSelector","Specify the datasets to compare:", choices = fileOptions$currentOptions
   )}
  })
  output$contents <- renderTable({
    input$dataSelector
  })


}

Answer 1

我必須檢修服務器和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){..}部分下。