有没有办法将数据下载到R中的特定文件夹中?
我正在尝试将数据帧以.csv格式下载到特定文件夹中。但在我的例子中,当我点击下载按钮时,数据会被下载到C驱动器的“下载”文件夹中有没有办法将数据下载到R中的特定文件夹中?,r,shiny,R,Shiny,我正在尝试将数据帧以.csv格式下载到特定文件夹中。但在我的例子中,当我点击下载按钮时,数据会被下载到C驱动器的“下载”文件夹中 library(shiny) # Define UI for data download app ---- ui <- fluidPage( # App title ---- titlePanel("Downloading Data"), # Sidebar layout with input and output definitions --
library(shiny)
# Define UI for data download app ----
ui <- fluidPage(
# App title ----
titlePanel("Downloading Data"),
# Sidebar layout with input and output definitions ----
sidebarLayout(
# Sidebar panel for inputs ----
sidebarPanel(
# Input: Choose dataset ----
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars")),
# Button
downloadButton("downloadData", "Download")
),
# Main panel for displaying outputs ----
mainPanel(
tableOutput("table")
)
)
)
# Define server logic to display and download selected file ----
server <- function(input, output) {
# Reactive value for selected dataset ----
datasetInput <- reactive({
switch(input$dataset,
"rock" = rock,
"pressure" = pressure,
"cars" = cars)
})
# Table of selected dataset ----
output$table <- renderTable({
datasetInput()
})
# Downloadable csv of selected dataset ----
output$downloadData <- downloadHandler(
filename = function() {
paste(input$dataset, ".csv", sep = "")
},
content = function(file) {
write.csv(datasetInput(), file, row.names = FALSE)
}
)
}
# Create Shiny app ----
shinyApp(ui, server)
库(闪亮)
#定义数据下载应用程序的用户界面----
ui如果要将文件保存到所需的位置,我认为此命令应该可以工作:
output$downloadData如果您想将文件保存到所需位置,我认为这个命令应该可以工作:
output$downloadData这篇文章解决了你的问题吗?这篇文章回答了你的问题吗?