Пользовательский ввод из inputText, сохраненный как переменная

Question

Я хочу взять два пользовательских ввода из окна ввода и сохранить их в переменной для последующего использования после отправки с помощью actionButton.

Вот мой UI:

shinyUI(fluidPage(
    titlePanel("Sandbox"), 
    sidebarLayout(
    sidebarPanel(("Predictive Pick Date"), 
     textInput("InputCI", "Enter confidence % level", "95"), 
     textInput("InputReqDM", "Enter required DM %", "15"), 
     actionButton("submit", "Submit")), 

    mainPanel("Blocks") 

) 
)) 

Вот мой сервер:

library(shiny) 
library(leaflet) 
library(splancs) 
library(sp) 
library(ggplot2) 
library(shiny) 
library(shinydashboard) 

shinyServer(
    function(input, output, session){ #pDMInput is the user input for what DM% they are aiming for 

    values <- reactiveValues(variable = NA) 

    observe({ 
     CI <- input$InputCI 
     ReqDM <- input$InputReqDM 
    }) 
    } 
) 

Cheers,

Answer 1

Вы можете попробовать это в части server.R

shinyServer(
      function(input, output, session){ #pDMInput is the user input for what DM% they are aiming for 
        CI <- eventReactive(input$submit, { 
          input$InputCI 
        }) 
        ReqDM <- eventReactive(input$submit, { 
          input$InputReqDM 
        }) 

      } 
    )