我知道我必须使用 fileInput 函数,但我希望用户能够只上传一个、两个、三个或多个文件,然后对这些文件执行底层代码。 然后我希望用户能够下载生成的文件,但我想我知道该怎么做。 提前感谢您的任何答案。 ...
提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供 中文繁体 英文版本 中英对照 版本,有任何建议请联系yoyou2525@163.com。
我下面有一个简单的闪亮应用程序。 在此应用程序中,我希望用户能够上传自己的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
})
}
我必须检修服务器和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){..}
部分下。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.