首页 文章

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

提问于
浏览 次
1

早上好 . 我想检查文件是否在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")

}

 }
r shiny reactive

1 回答

  • 3

    我不认为你可以在这样的函数中使用反应，参见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)

    希望这可以帮助！

    回复于

相关问题