R Shiny - Passing User Input as Global String












0














How do I take in a user input and store as environment string in server.R?



Here's an example (which produces an error):



library(shiny)

# Define the UI

n <- 100

ui <- bootstrapPage(
numericInput('n', 'Number of obs', n),
textOutput('count_new')
)

# Define the server code
server <- function(input, output) {

count <- as.numeric(renderText({input$n}))
output$count_new <- renderText({count/10})

}

# Return a Shiny app object
shinyApp(ui = ui, server = server)









share|improve this question



























    0














    How do I take in a user input and store as environment string in server.R?



    Here's an example (which produces an error):



    library(shiny)

    # Define the UI

    n <- 100

    ui <- bootstrapPage(
    numericInput('n', 'Number of obs', n),
    textOutput('count_new')
    )

    # Define the server code
    server <- function(input, output) {

    count <- as.numeric(renderText({input$n}))
    output$count_new <- renderText({count/10})

    }

    # Return a Shiny app object
    shinyApp(ui = ui, server = server)









    share|improve this question

























      0












      0








      0







      How do I take in a user input and store as environment string in server.R?



      Here's an example (which produces an error):



      library(shiny)

      # Define the UI

      n <- 100

      ui <- bootstrapPage(
      numericInput('n', 'Number of obs', n),
      textOutput('count_new')
      )

      # Define the server code
      server <- function(input, output) {

      count <- as.numeric(renderText({input$n}))
      output$count_new <- renderText({count/10})

      }

      # Return a Shiny app object
      shinyApp(ui = ui, server = server)









      share|improve this question













      How do I take in a user input and store as environment string in server.R?



      Here's an example (which produces an error):



      library(shiny)

      # Define the UI

      n <- 100

      ui <- bootstrapPage(
      numericInput('n', 'Number of obs', n),
      textOutput('count_new')
      )

      # Define the server code
      server <- function(input, output) {

      count <- as.numeric(renderText({input$n}))
      output$count_new <- renderText({count/10})

      }

      # Return a Shiny app object
      shinyApp(ui = ui, server = server)






      r shiny render reactive






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Nov 10 at 17:40









      kquach

      427




      427
























          1 Answer
          1






          active

          oldest

          votes


















          0














          Found the solution. Key is to use reactive in front of input. The variable can then be called followed by ().



          library(shiny)

          # Define the UI

          n <- 100

          ui <- bootstrapPage(
          numericInput('n', 'Number of obs', n),
          textOutput('count_new')
          )

          # Define the server code
          server <- function(input, output) {

          count <- reactive({input$n})
          output$count_new <- renderText({count()/10})

          }

          # Return a Shiny app object
          shinyApp(ui = ui, server = server)





          share|improve this answer





















            Your Answer






            StackExchange.ifUsing("editor", function () {
            StackExchange.using("externalEditor", function () {
            StackExchange.using("snippets", function () {
            StackExchange.snippets.init();
            });
            });
            }, "code-snippets");

            StackExchange.ready(function() {
            var channelOptions = {
            tags: "".split(" "),
            id: "1"
            };
            initTagRenderer("".split(" "), "".split(" "), channelOptions);

            StackExchange.using("externalEditor", function() {
            // Have to fire editor after snippets, if snippets enabled
            if (StackExchange.settings.snippets.snippetsEnabled) {
            StackExchange.using("snippets", function() {
            createEditor();
            });
            }
            else {
            createEditor();
            }
            });

            function createEditor() {
            StackExchange.prepareEditor({
            heartbeatType: 'answer',
            autoActivateHeartbeat: false,
            convertImagesToLinks: true,
            noModals: true,
            showLowRepImageUploadWarning: true,
            reputationToPostImages: 10,
            bindNavPrevention: true,
            postfix: "",
            imageUploader: {
            brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
            contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
            allowUrls: true
            },
            onDemand: true,
            discardSelector: ".discard-answer"
            ,immediatelyShowMarkdownHelp:true
            });


            }
            });














            draft saved

            draft discarded


















            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53241685%2fr-shiny-passing-user-input-as-global-string%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            1 Answer
            1






            active

            oldest

            votes








            1 Answer
            1






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            0














            Found the solution. Key is to use reactive in front of input. The variable can then be called followed by ().



            library(shiny)

            # Define the UI

            n <- 100

            ui <- bootstrapPage(
            numericInput('n', 'Number of obs', n),
            textOutput('count_new')
            )

            # Define the server code
            server <- function(input, output) {

            count <- reactive({input$n})
            output$count_new <- renderText({count()/10})

            }

            # Return a Shiny app object
            shinyApp(ui = ui, server = server)





            share|improve this answer


























              0














              Found the solution. Key is to use reactive in front of input. The variable can then be called followed by ().



              library(shiny)

              # Define the UI

              n <- 100

              ui <- bootstrapPage(
              numericInput('n', 'Number of obs', n),
              textOutput('count_new')
              )

              # Define the server code
              server <- function(input, output) {

              count <- reactive({input$n})
              output$count_new <- renderText({count()/10})

              }

              # Return a Shiny app object
              shinyApp(ui = ui, server = server)





              share|improve this answer
























                0












                0








                0






                Found the solution. Key is to use reactive in front of input. The variable can then be called followed by ().



                library(shiny)

                # Define the UI

                n <- 100

                ui <- bootstrapPage(
                numericInput('n', 'Number of obs', n),
                textOutput('count_new')
                )

                # Define the server code
                server <- function(input, output) {

                count <- reactive({input$n})
                output$count_new <- renderText({count()/10})

                }

                # Return a Shiny app object
                shinyApp(ui = ui, server = server)





                share|improve this answer












                Found the solution. Key is to use reactive in front of input. The variable can then be called followed by ().



                library(shiny)

                # Define the UI

                n <- 100

                ui <- bootstrapPage(
                numericInput('n', 'Number of obs', n),
                textOutput('count_new')
                )

                # Define the server code
                server <- function(input, output) {

                count <- reactive({input$n})
                output$count_new <- renderText({count()/10})

                }

                # Return a Shiny app object
                shinyApp(ui = ui, server = server)






                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered Nov 10 at 18:15









                kquach

                427




                427






























                    draft saved

                    draft discarded




















































                    Thanks for contributing an answer to Stack Overflow!


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.





                    Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


                    Please pay close attention to the following guidance:


                    • Please be sure to answer the question. Provide details and share your research!

                    But avoid



                    • Asking for help, clarification, or responding to other answers.

                    • Making statements based on opinion; back them up with references or personal experience.


                    To learn more, see our tips on writing great answers.




                    draft saved


                    draft discarded














                    StackExchange.ready(
                    function () {
                    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53241685%2fr-shiny-passing-user-input-as-global-string%23new-answer', 'question_page');
                    }
                    );

                    Post as a guest















                    Required, but never shown





















































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown

































                    Required, but never shown














                    Required, but never shown












                    Required, but never shown







                    Required, but never shown







                    這個網誌中的熱門文章

                    Xamarin.form Move up view when keyboard appear

                    Post-Redirect-Get with Spring WebFlux and Thymeleaf

                    Anylogic : not able to use stopDelay()