Использование вывода вывода пользователя для изменения другой функции в пользовательском интерфейсе - Shiny R - PullRequest
Новая
       11

Использование вывода вывода пользователя для изменения другой функции в пользовательском интерфейсе - Shiny R

0 голосов
/ 16 января 2020

Я разрабатываю блестящий инструмент для колледжа, и я довольно учусь по требованию ...

В приведенном ниже коде пользователь выбирает акцию на стандартном SelectInput, затем обновляется второй SelectInput Будут ли все перечисленные опции для этой акции на внешнем рынке ...

Мне нужно создать реакцию, когда пользователь выбирает, какая акция будет оцениваться во втором окне selectInbox, в основном мне нужен способ создать реакцию когда пользователь изменяет второе окно выбора (в качестве вывода). 

shinyUI(fluidPage(

  titlePanel("Calculadora de Cone de Volatilidade"),

  sidebarLayout(

      selectInput("AtivoSubjacente","Escolha o ativo subjacente:",c(GetIbovStocks()$tickers)),

uiOutput("Opts"),

      span(h5(strong("Tipo Opcao:")), h5(textOutput("Opt_Tipo")))


    ),
    mainPanel(
      plotOutput("distPlot")

    )
  )

)
)

source("funcoes.R")



shinyServer(
  function(input,output){


    dataOpts <- reactive({
      ListaOpt(substr(input$AtivoSubjacente,1,4))
    })

    output$Opts <- renderUI({
      selectInput("Opts","Escolha a opcao a ser avaliada:",choices=dataOpts())
    })

    Sel_Opt <- reactive({CallPut(uiOutput$Opts)
      })

    output$Opt_Tipo <- renderText(Sel_Opt())


    output$distPlot <- renderPlot({
      ConeVol(toString(paste(input$AtivoSubjacente,".SA",sep="")))
    })


  }
)
...