2

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

- 从 slidifyUI 中选择一只股票 - 捕获这个选定的值 - 使用选定的股票从名为 BetaData 的数据框架中提取市场 beta 和行业 beta，以便我可以提取这只股票的行业和市场 beta - 使用提取的市场 beta 和行业 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
4

0 回答 0