Question

我想在闪亮的应用中使用测验小部件，或者使用闪亮的应用程序。想法是slidifyUI将捕获股票的名称，我想以某种方式将此选择传递给一组R代码，该代码又将值传递给测验小部件。但是，我不知道如何在闪亮的应用程序之外传递值或使测验小部件在闪亮的应用程序中工作。我想：

- 从slidifyUI中选择一个股票 - 捕获此选定值 - 使用选定的股票从名为BetaData的数据框中提取市场beta和industrybeta，以便我可以提取该股票的行业和市场beta - 在测验中使用提取的市场测试版和行业测试版 - 我的测验代码有效，我只是不知道如何捕获我在UI中做出的选择并将其传递给使用此信息的R代码

我的代码是

---
title       : R-Squared Risk Management
subtitle    : Products & Services
author      : Arun Soni
job         : Director of Business Development 
logo        : rsqlogo.jpg
widgets     : [bootstrap, quiz, shiny, interactive]
# download: 'io2012.zip'
url         : {lib: ../../libraries}
mode        : selfcontained
hitheme     : tomorrow
assets      : {js: 'test.js'}
--- dt:10

```{r echo = F}
opts_chunk$set(cache = F)
```

## Agenda ##

<style>
body {
  background-color: #000;
}
.quiz-option label{
  display: inline;
  font-size: 1em;
}
ul.nav li::before { content: ""; }  
ul.nav li{ font-size: 18px; line-height: 24px;}
</style>

### 1. About ###
### 2. RSQRM Models ###
### 3. Analytics ###
### 4. Optimisation###
### 5. Backtesting###
### 6. Alpha Research###
### 7. Conclusion###

---&radio

## Exposure vs. Weight - Does it matter?


```{r opts.label = 'shiny'}
slidifyUI(
  sidebarPanel(
    selectInput(inputId='betaInput', label='Choose Stock',  choices=c('APPLE','BASF'),selected='APPLE INC',selectize = TRUE)
  ),
  mainPanel(
    textOutput("sSelected")
  )
)

shinyServer(function(input, output) {

  sSelected <- reactive({
        switch(input$model,dtBetaMelted[['Name']])
    })
  })
```

Market or Industry?

```{r opts.label='marketIndustryBeta',echo=FALSE}

marketBeta <- BetaData[StockName==sSelected,MarketBetaCol]
industryBeta <- BetaData[StockName==sSelected,IndustryBetaCol]
```

1. _`r if(marketBeta>industryBeta){'Market'}else{'Industry'}`_
2. `r if(marketBeta<industryBeta){'Market'}else{'Industry'}`

*** .hint

Industry beta is `r sprintf(industryBeta,fmt='% 3.2f')` & market beta is `r sprintf(marketBeta,fmt='% 3.2f')`

*** .explanation

在闪亮的应用程序中滑动测验小部件

0 个答案: