Включить ввод и вывод в поле, отображаемое с помощью renderUI () - PullRequest
Новая
       16

Включить ввод и вывод в поле, отображаемое с помощью renderUI ()

0 голосов
/ 09 апреля 2019

Мне было интересно, можно ли визуализировать поле на стороне сервера, которое включает в себя как входные данные в качестве вывода!?

(К вашему сведению, я генерирую поле на стороне сервера в качестве заголовка и статусаокна меняются в зависимости от других вариантов в моем приложении)

Приветствия, Люк 

library(shiny)
library(shinydashboard)

shinyApp(
  ui = dashboardPage(
    dashboardHeader(),
    dashboardSidebar(),
    dashboardBody(
      uiOutput("box1")
    )
  ),


  server = function(input, output, session) {


    data2plot <-reactive({rnorm(n = input$samplesize, mean = 100, sd = 30)})


  # Rendered box with input AND output (gives error)
    output$box1 <- renderUI({
      box(

        textInput(inputId = "samplesize", label = "Sample size:", value = 500),

        hist(data2plot())

      )  })


  }
)
...