RStudio server and Shiny server

General
21

Almost there, so run the app yes, change the code no

22

Hi, How do I get the name of an uploaded file in shiny? I am using input$file$name in the function cann but it does not work. It works if I send as parameter the name of the file, instead input$file$name. Please see working example

observeEvent(input$value,{
   if(input$value == 'Y'){
     inFile = input$file
     inFileName = inFile$name
     result <- glycoPipe("PARAMS.tsv")
     returnedValue = result$params
     output$box <- renderText({
       paste("Your result is ", returnedValue)
     }
     )
    }
  })
23

Hi @giuseppa.cefalu, is this a duplicate question? Integrating R code with Shiny app

24

Yes. Sorry. I was not sure whether I was replying to srisivanicharan or to you.

25

Cool, no problem. Would you mind reviewing your open posts and marked those for which original questions has been addressed? And then open a single thread for your code question? This will sure help the community know where to offer help, and where others can come for help to find solved questions.

26

How do I mark that the questions have been addressed?

27

I describe/have a screen shot here:

1 Like
28

So make code changes locally, copy it onto the Shiny server and then run the app?

29

Hey @srisivanicharan, yes, that's it!

30

Why am I getting srisivanicharan messages?

31

Oh right, that's because this post was opened by you

32

@srisivanicharan, would you mind opening a new post if you have more questions about Shiny Server please?

33

Got it edgararuiz. Thank you.

1 Like
34

I can find the like symbol and another under the post but I cannot find the solution one.

35

I have marked all the resolved questions.

36

Awesome, thank you!

Please feel free to cc me in a your new post for your current Shiny code question if you still need help

37

How do I cc you? I still have this questions. This is the file upload input

fluidRow(
                   column(width = 10, fileInput("file", "upload the file", accept = ".tsv", placeholder = "No file selected", multiple = FALSE))
                 )

observeEvent(input$value,{
   if(input$value == 'Y'){
     inFile = input$file
     inFileName = inFile$name
     result <- glycoPipe("PARAMS.tsv")
     returnedValue = result$params
     output$box <- renderText({
       paste("Your result is ", returnedValue)
     }
     )
    }
  })

I know the function call works because when I sen the actual file name i get the expected results. It does not work when I use input$file$name

38

You can just ask the question and type my name at the end of your post:
cc @edgararuiz