В блестящем, как я могу обновить текстовое поле ввода значением кнопки действия

Привет, я хочу создать блестящий пользовательский интерфейс, который пользователь может ввести имя набора данных в текстовое поле, скажем, «testdataset». Затем, нажав кнопку и кнопку действия, выберите конкретный процесс в этом (примере) анализа 1 или анализа 2. Как только это произойдет, я хочу, чтобы в текстовом поле отображалось имя исходного набора данных плюс выбранный анализ, то есть «testdataset-analysis1». Я создал и пример пользовательского интерфейса ниже, но я новичок в R, блестящий и не знаю, как захватывать события и передавать переменные между пользовательским интерфейсом и сервером и отображать их. может кто-нибудь помочь? пример того, чего я хотел бы достичь
библиотека (блестящая)

  #====shiny UI
  shinyUI(pageWithSidebar(
    headerPanel("Shiny action button input "),
    sidebarPanel(
      textInput(inputId="data1", label = "Input data name"),

      actionButton("Ana1", "analysis1"),
      actionButton("Ana2", "analysis2")
    ),
    mainPanel(
  #
    )
  ))

  #====shiny server
  shinyServer(
    function(input, output) {
      output$data1 <- renderText({input$data1})

    })
  }
  )

  runApp()#to run application

button action shiny shiny-server
person user5300810    schedule 02.04.2016    source источник

Ответы (1)


arrow_upward
5
arrow_downward

Это не полный ответ, но стоит попробовать на себе. Как правило, используйте updateTextInput для обновления текста, используйте observeEvent для наблюдения за действием щелчка на кнопке, используйте input$name для захвата входных значений и используйте output$name <- render... для установки вывода. Есть несколько updateInput методов, которые вы можете найти в официальном справочнике Shiny. http://shiny.rstudio.com/reference/shiny/latest/

Например, в коде вашего сервера

function(session, input, output) {
    observeEvent(input$Ana1, {
        name <- paste(input$data1, "analysis 1")
        updateTextInput(session, "data1", value=name)
    }
}
person Xiongbing Jin    schedule 03.04.2016