2

ピカピカのアプリ内でクイズ ウィジェットを使用したい、またはピカピカのアプリで動作させたい。アイデアは、slidifyUI が株の名前を取得し、この選択を何らかの方法で一連の R コードに渡し、値をクイズ ウィジェットに渡すことです。ただし、光沢のあるアプリの外部で値を渡す方法や、光沢のあるアプリ内でクイズ ウィジェットを動作させる方法がわかりません。したい:

-slidifyUI から銘柄を選択 -この選択した値を取得 -選択した銘柄を使用して、BetaData と呼ばれる data.frame から市場ベータと業界ベータを抽出し、この銘柄の業界と市場ベータを抽出できるようにする -抽出された市場ベータと業界ベータを使用するクイズで-私のクイズコードは機能しますが、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