下载在Shiny中进行数据处理后的fileInput()。

huangapple
go评论107阅读模式
英文:

download fileinput() after data manipulation in Shiny

问题

以下是您要翻译的代码部分：

  1. 我有一个Shiny App，在一些数据操作之后，我想要下载`mytable`。非常感谢提前帮助。
  3. library(shiny)
  4. ui <- navbarPage(
  5.   title = 'Benvenuti',
  6.   tabPanel('read.me', column(3,
  7.                              
  8.                              h3("每日数据操作"),
  9.                              
  10.                              h3("标题1"),
  11.                              tags$a("上传数据.xlsx")
  12.   )),
  13.   
  14.   tabPanel(title = "标题2", 
  15.            sidebarPanel( width = 2, fileInput('file1', '选择xlsx文件',
  16.                                               accept = c(".xlsx")),
  17.                          numericInput("ID", "输入起始ID号码:",
  18.                                       value = 1, min = -Inf, max = Inf),
  19.                          downloadButton("Download.mytable", "下载mytable")
  20.            ), 
  21.            
  22.            mainPanel(tableOutput(outputId = "mytable"))
  23.   ) ) 
  27. server <- function(input, output) {
  28.   
  29.   data.Consenso <- reactive({
  30.   inFile <- input$file1
  31.   if(!is.null(inFile)) {
  32.     readxl::read_excel(inFile$datapath)
  33.     #read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)    
  34.   }
  35. })
  38. output$mytable <- renderTable({
  39.   
  40.   dat <- data.Consenso()
  41.   if(!is.null(dat))
  42.   {
  43.     dat$Tipo <- 3
  44.     
  45.     dat
  46.   }
  47. }) 
  49. mytable2 <- reactive({mytable})
  51. output$Download.mytable  <- downloadHandler(
  52.   
  53.   filename = function() { 
  54.     paste("data-", Sys.Date(), ".csv", sep="")
  55.   },
  56.   
  57.   content = function(file) {
  58.     
  59.     write.csv(mytable2(), file)
  60.     
  61.   })
  62.   
  63.   
  64. }
  66. shinyApp(ui = ui, server = server)

如果您需要进一步的帮助，请告诉我。

英文:

I have a Shiny App and after some data manipulations, I would like to download mytable. Many thanks in advance.

  1.    library(shiny)
  2. ui &lt;- navbarPage(
  3.   title = &#39;Benvenuti&#39;,
  4.   tabPanel(&#39;read.me&#39;, column(3,
  5.                              
  6.                              h3(&quot;Daily Data Manipulation&quot;),
  7.                              
  8.                              h3(&quot;title1&quot;),
  9.                              tags$a(&quot;Upload data.xlsx&quot;)
  10.   )),
  11.   
  12.   tabPanel(title = &quot;title2&quot;, 
  13.            sidebarPanel( width = 2, fileInput(&#39;file1&#39;, &#39;Choose xlsx file&#39;,
  14.                                               accept = c(&quot;.xlsx&quot;)),
  15.                          numericInput(&quot;ID&quot;, &quot;Enter the starting ID number:&quot;,
  16.                                       value = 1, min = -Inf, max = Inf),
  17.                          downloadButton(&quot;Download.mytable&quot;, &quot;Download mytable&quot;)
  18.            ), 
  19.            
  20.            mainPanel(tableOutput(outputId = &quot;mytable&quot;))
  21.   ) ) 
  25. server &lt;- function(input, output) {
  26.   
  27.   data.Consenso &lt;- reactive({
  28.   inFile &lt;- input$file1
  29.   if(!is.null(inFile)) {
  30.     readxl::read_excel(inFile$datapath)
  31.     #read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)    
  32.   }
  33. })
  36. output$mytable &lt;- renderTable({
  37.   
  38.   dat &lt;- data.Consenso()
  39.   if(!is.null(dat))
  40.   {
  41.     dat$Tipo &lt;- 3
  42.     
  43.     dat
  44.   }
  45. }) 
  47. mytable2 &lt;- reactive({mytable})
  49. output$Download.mytable  &lt;- downloadHandler(
  50.   
  51.   filename = function() { 
  52.     paste(&quot;data-&quot;, Sys.Date(), &quot;.csv&quot;, sep=&quot;&quot;)
  53.   },
  54.   
  55.   content = function(file) {
  56.     
  57.     write.csv(mytable2(), file)
  58.     
  59.   })
  62. }
  64. shinyApp(ui = ui, server = server)

Error

  1. Warning: Error in &lt;reactive:mytable2&gt;: object &#39;mytable&#39; not found
  2.   3: runApp
  3.   2: print.shiny.appobj
  4.   1: &lt;Anonymous&gt;

photo
下载在Shiny中进行数据处理后的fileInput()。

答案1

得分: 1

你使用了 mytable()，但它在任何地方都没有被定义。假设你正在使用原始数据并以某种方式修改数据，你需要像这样的内容：

  1. mytable <- reactive({
  2.   req(data.Consenso())
  3.   something <- data.Consenso() %>%
  4.     subset(somevar > 5) %>%
  5.     transform(newvar = somevar - 42)
  6.   something
  7. })

我使用了基本的R管道等，这只是一个演示，_这_就是你在允许用户下载新创建的CSV之前需要进行任何数据操作的地方。

英文:

You use mytable() but it is not defined anywhere. Assuming you are taking the original data and somehow modifying things, you need something like this:

  1. mytable &lt;- reactive({
  2.   req(data.Consenso())
  3.   something &lt;- data.Consenso() |&gt;
  4.     subset(somevar &gt; 5) |&gt;
  5.     transform(newvar = somevar - 42)
  6.   something
  7. })

I'm using base-R pipes and such, this is just a demonstration that this is where you would do whatever data manipulation is needed before allowing the user to download a newly-created CSV.

huangapple
  • 本文由 发表于 2023年5月21日 18:53:11
  • 转载请务必保留本文链接：https://go.coder-hub.com/76299502.html
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定