RShiny：根据输入字段中的值调用文件

问题描述

我想根据用户的输入在应用程序中使用不同的数据集。

想象一下我有这些文件：

<template>
<form>
  <div class="form-group row d-flex justify-content-center">
      <label class="col-lg-1 col-form-label" for="nameField">Name <span class="text-danger">*</span></label>
      <div class="col-lg-3">
          <input id="nameField" ref="nameField" type="search" class="form-control text-capitalize" placeholder="Enter your full name" :value="pdName" @input="pdNameInput" @blur="requiredCheck" />
      </div>
      <label class="offset-lg-1 col-lg-1 col-form-label" for="companyField">Company <span class="text-danger">*</span></label>
      <div class="col-lg-3">
          <input id="companyField" class="form-control text-capitalize" type="search" :value="pdCompName" placeholder="Enter a company name" @blur="requiredCheck" />
      </div>
  </div>
  <div class="form-group row d-flex justify-content-center">
      <label class="col-lg-1 col-form-label" for="telNumField">Contact no. <span class="text-danger">*</span></label>
      <div class="col-lg-3">
          <input id="telNumField" class="form-control" type="search" :value="pdTelNo" @input="pdTelNoInput" @paste="telNoPaste" @blur="requiredCheck"
                  placeholder="Enter a contact number" v-telNoInput />
      </div>
      <label class="offset-lg-1 col-lg-1 col-form-label" for="extNumField">Ext no.</label>
      <div class="col-lg-3">
          <input id="extNumField" class="form-control" type="search" :value="pdExtNo" @input="pdExtNoInput" @paste="extNoPaste" placeholder="Enter an extension number"
                  v-telNoInput>
      </div>
  </div>
</form>
</template>



  <script>
    export default {
      pdInitPageStates() {
         let input = document.getElementsByTagName("input");
         
// TRIED THIS
         for (let i = 0; i < input.length; i++) {
             console.log(input)
         }
    
         this.emailFormatErrorMsg = false;
         this.emailIncorrectFormat = false;
         
         this.pdName = this.$store.state.account.firstname + ' ' + this.$store.state.account.lastname
     this.pdCompName = this.$store.state.account.company;
     this.pdExtNo = this.$store.state.account.extension;
     this.pdEmailAdd = this.$store.state.user.adminemail;
     this.pdTelNo = this.$store.state.account.ddi;
     this.pdMobNo = this.$store.state.account.mobile;

     if (this.detailsChanged) {
         this.detailsChanged = false;
     }

     this.$refs.nameField.focus();
  },requiredCheck(e) {
     let input = e.target;

     if (input.value === '' || (input.id === 'emailAddField' && this.emailFormatErrorMsg)) {
         input.classList.add('error');
     } else {
         input.classList.remove('error');
     }
  }
}
</script>

是否可以制定条件语句来根据用户在输入字段中的选择来更改要调用的文件名？

出于说明的目的，我附上一些我想要的行为代码。

AA.csv 
AB.csv
AC.csv 

ui<- fluidPage(
  selectInput(inputId="file",label= "File",choices = c("AA","AB","AC"))
)

我希望我的问题很清楚。

解决方法

第一步是您的read.csv代码应类似于

datafile <- reactive({ read.csv(paste0(input$file,".csv")) })

两种方法可以使它更好一点：

1. 添加req，以便丢失（错位的）文件不会产生错误，而只是缺少数据；和
2. 使此 dynamic 保持动态，以便您的项目可以包含数据文件的任意列表，并且您可以添加文件，而不必编辑代码来更改selectInput。

如果您只关心在应用启动时检查可用文件，那么也许就足够了：

files <- list.files("./data",pattern = "\\.csv$",full.names = TRUE)
choices <- setNames(files,tools:::file_path_sans_ext(basename(files)))
shinyApp(
  ui = fluidPage(
    selectInput("file","File",choices = choices,selectize = FALSE),textAreaInput("txtarea","File top 10 lines:",rows = 10)
  ),server = function(input,output,session) {
    somedata <- reactive({
      req(input$file)
      readLines(input$file,n = 10)
    })
    observeEvent(somedata(),{
      updateTextAreaInput(session,"txtarea",value = somedata())
    })
  }
)

（我使用textAreaInput只是为了显示文件内容...假设您有不同的需求，那么您可能不需要observeEvent来更新该输入字段。 ）

如果这是一个“长期运行”的应用，需要对新文件做出反应而无需重新启动，则可以设置“轮询”，该轮询将定期更新可用文件列表以供输入。虽然这是为了适应新文件，但它也会对已删除的文件做出反应。

shinyApp(
  ui = fluidPage(
    selectInput("file",choices = c(),session) {
    observe({
      invalidateLater(30000,session) # 30 seconds
      sel <- input$file
      files <- list.files("./data",full.names = TRUE)
      choices <- setNames(files,tools:::file_path_sans_ext(basename(files)))
      if (!sel %in% choices) sel <- choices[1]
      updateSelectInput(session,"file",selected = sel)
    })
    somedata <- reactive({
      req(input$file)
      readLines(input$file,value = somedata())
    })
  }
)

第二个应用程序从零选项（c()）开始，并立即更新它们。我设定了30秒的民意调查；您的用例将决定更合理的选择，因为意识到亚秒级的响应可能会损害对文件反应性的明显需求而不必要的文件系统访问。

我对以下各项进行了快速设置以进行测试：

# setup
dir.create("data")
writeLines("hello world","./data/AA.csv")
writeLines("hello world again","./data/AB.csv")