闪亮的反应检查文件是否选择

Question

早上好。我想检查文件是否在fileInput中选择，所以我不得不创建反应函数，但这不起作用。

ui.R

        fileInput("file_input","Choose your file in csv")             

        mainPanel("main panel",textOutput("choose"))

server.R

library(shiny)
isFileChoose<-function(){reactive({

  if(is.null(input$file_input))

    return (FALSE)

  else

    return (TRUE)


  })  }


server <- function(input, output) {


 if(isFileChoose()==FALSE)
{
 output$choose<-renderText("Not selected file")

}

 }

Answer 1

我认为你不能在这样的函数中使用反应，请参阅here。你可以这样做：

library(shiny)

ui <- fluidPage(
  fileInput("file_input","Choose your file in csv"),            
  textOutput("choose")
)

server <- function(input, output) {

  output$choose <- reactive({
    if(is.null(input$file_input))
    {
      "No input given yet."
    }
    else
    {
      "Now we can process the data!"
    }
  })

}

shinyApp(ui = ui, server = server)

希望这有帮助！