R 如何使用SHINY将上载的csv文件复制到新的csv文件中？
我想将用户在UI上上传的CSV文件中的数据复制到我系统上的另一个CSV文件中。应以完全相同的方式复制数据。应该做什么？服务器。R:R 如何使用SHINY将上载的csv文件复制到新的csv文件中？,r,csv,shiny,R,Csv,Shiny,我想将用户在UI上上传的CSV文件中的数据复制到我系统上的另一个CSV文件中。应以完全相同的方式复制数据。应该做什么？服务器。R: library(shiny) library(DT) # Define server logic required to draw a histogram shinyServer(function(input, output) { df_products_upload <- observeEvent(input$target_upload,{
library(shiny)
library(DT)
# Define server logic required to draw a histogram
shinyServer(function(input, output) {
df_products_upload <- observeEvent(input$target_upload,{
inFile <- input$target_upload
if (is.null(inFile))
return(NULL)
file.copy(inFile$datapath, paste0(getwd(),"/data.csv"), overwrite = TRUE, recursive = FALSE,
copy.mode = TRUE, copy.date = FALSE)
})
}
)
库（闪亮）
图书馆（DT）
#定义绘制直方图所需的服务器逻辑
shinyServer（功能（输入、输出）{
df_products_upload这个问题相当广泛。你知道如何从正常的r会话复制文件吗？（检查？文件。复制）你好，Florian！我认为上面的代码不起作用。该文件根本没有复制到另一个文件中。Data.csv也没有在我的本地系统中创建。奇怪的是，你是在本地还是在服务器上运行它？它对我起作用。我修改了代码，它现在使用了observeEvent，前面的示例实际上是错误的谢谢你，弗洛里安！你帮了大忙没问题，很高兴我能帮上忙。
ui <- shinyUI(fluidPage(
fileInput('target_upload', 'Choose file to upload',
accept = c(
'text/csv',
'text/comma-separated-values',
'.csv'
))
)
)