R help - Jun 2021 - shinyFiles update shinySaveButton filename varaible from server

Is it possible to update the filename variable  the shinySaveButton from
the server?

I want to provide a default  filename based on a series of choices that the
user has made in the app ( here I have just made a random string to serve
the purpose.  how do I feed output$defaultname
 so that shinySaveButton( filename = outputSdefaultname )?


library(shiny)
library(shinyFiles)

data <- iris
roots <- c("UserFolder"=".")

ui <- fluidPage(
  actionButton("makeName","Make Default File Name"),
  shinySaveButton(id = "save", label = "Save file", title =
"Save file as
...", filename =
"defaultname",filetype=list(csv="csv"))
)


server <- shinyServer(function(input, output, session) {
  rv <- reactiveValues()
  observeEvent(input$makeName,{
    output$defaultname<-paste(letters[sample(1:10,5)],collapse="")
  })

  observe({


    shinyFileSave(input, "save", roots=roots, session=session)
    fileinfo <- parseSavePath(roots, input$save)
    xx<<-input$save
    if (nrow(fileinfo) > 0) {
      write.csv(, as.character(fileinfo$datapath))

    }
    session$allowReconnect("force")
  })
})

runApp(list(
  ui=ui,
  server=server
))

	[[alternative HTML version deleted]]

Note, per the Posting Guide (linked below),

"For questions about functions in standard packages distributed with R (see
the FAQ Add-on packages in R
<https://cran.r-project.org/doc/FAQ/R-FAQ.html#Add-on-packages-in-R>), ask
questions on R-help.

If the question relates to a *contributed package* , e.g., one downloaded
from CRAN, try contacting the package maintainer first. You can also use
find("functionname") and packageDescription("packagename")
to find this
information. *Only* send such questions to R-help or R-devel if you get no
reply or need further assistance. This applies to both requests for help
and to bug reports."

So do not be surprised if you do not get a response here.


Bert Gunter

"The trouble with having an open mind is that people keep coming along and
sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )


On Thu, Jun 3, 2021 at 11:00 PM nevil amos <nevil.amos at gmail.com>
wrote:
> Is it possible to update the filename variable  the shinySaveButton from
> the server?
>
> I want to provide a default  filename based on a series of choices that the
> user has made in the app ( here I have just made a random string to serve
> the purpose.  how do I feed output$defaultname
>  so that shinySaveButton( filename = outputSdefaultname )?
>
>
> library(shiny)
> library(shinyFiles)
>
> data <- iris
> roots <- c("UserFolder"=".")
>
> ui <- fluidPage(
>   actionButton("makeName","Make Default File Name"),
>   shinySaveButton(id = "save", label = "Save file",
title = "Save file as
> ...", filename =
"defaultname",filetype=list(csv="csv"))
> )
>
>
> server <- shinyServer(function(input, output, session) {
>   rv <- reactiveValues()
>   observeEvent(input$makeName,{
>    
output$defaultname<-paste(letters[sample(1:10,5)],collapse="")
>   })
>
>   observe({
>
>
>     shinyFileSave(input, "save", roots=roots, session=session)
>     fileinfo <- parseSavePath(roots, input$save)
>     xx<<-input$save
>     if (nrow(fileinfo) > 0) {
>       write.csv(, as.character(fileinfo$datapath))
>
>     }
>     session$allowReconnect("force")
>   })
> })
>
> runApp(list(
>   ui=ui,
>   server=server
> ))
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
	[[alternative HTML version deleted]]