R Shiny - Passing User Input as Global String









up vote
0
down vote

favorite












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

























    up vote
    0
    down vote

    favorite












    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























      up vote
      0
      down vote

      favorite









      up vote
      0
      down vote

      favorite











      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

















          up vote
          0
          down vote













          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',
            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








            up vote
            0
            down vote













            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
























              up vote
              0
              down vote













              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






















                up vote
                0
                down vote










                up vote
                0
                down vote









                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















































                     


                    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







                    Popular posts from this blog

                    Top Tejano songwriter Luis Silva dead of heart attack at 64

                    政党

                    天津地下鉄3号線