英文:
Exporting/Saving output to a text file in a folder location
问题
我想通过按下按钮实现的目标是：将文本文件保存在项目文件夹位置，例如/outputtext/。 有没有办法实现这个？
英文:
I want to create a file using various inputs and export the inputs in a text file in a local folder, say in /file/ in the project directory. I have the following working app.
require(shiny)runApp(list(ui = pageWithSidebar(headerPanel("Creating frile"),sidebarPanel(selectInput("var",label = "Drops",choices = c("Op1", "Op2", "Op3", "Op4"),selected = "Op1"),sliderInput("range",label = "Slide to select",min = 0, max = 100, value = c(0, 100)),actionButton("button", "Export file")),mainPanel(htmlOutput("text"))),server = function(input, output) {output$text <- renderUI({str1 <- paste("You have selected:", input$var)str2 <- paste("The range that goes between:",input$range[1], "to", input$range[2])HTML(paste(str1, str2, sep = '<br/>'))})}))
What I want to achive by the action button is: it will save a text file in a project folder location, e.g. /outputtext/. Any idea how to do this?
答案1
得分: 1
你可以这样做：
observeEvent(input$button, {str1 <- paste("你选择了：", input$var)str2 <- paste("范围从：", input$range[1], "到", input$range[2])writeLines(c(str1, str2), "路径/到/文件.txt")})
英文:
You can do something like that:
observeEvent(input$button, {str1 <- paste("You have selected:", input$var)str2 <- paste("The range that goes between:",input$range[1], "to", input$range[2])writeLines(c(str1, str2), "path/to/file.txt")})
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论