如何解决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")) })
两种方法可以使它更好一点:
- 添加
req
,以便丢失(错位的)文件不会产生错误,而只是缺少数据;和 - 使此 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")
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。