3

Shiny で rCharts を実行すると、ローカル コンソールにプロットの上部のみが表示されます。これがなぜなのかまったくわかりません。rCharts と Shiny の両方の最新の開発バージョンを実行しています。どんな助けでも大歓迎です！

以下の 2 つのファイルは、問題を完全に再現するはずです。前もって感謝します、セバスチャン

## server.R
require(rCharts)
library(RCurl)
options(RCHART_WIDTH = 800)
shinyServer(function(input, output) {
output$myChart <- renderChart({
x <- getURL("https://raw.github.com/sebastianbarfort/vaa/master/vaa_.csv")
df___ <- read.csv(text = x)
p2 <- nPlot(Economy ~ Immigration, group = 'X.1', data = df___, 
               type = 'scatterChart')
p2$chart(color = c('red', 'blue', 'green',"yellow","yellow","yellow","yellow","yellow"))
p2$set(dom = "myChart")
return(p2)
})
})


##ui.R
require(rCharts) 
shinyUI(pageWithSidebar(
headerPanel("xxx"),
sidebarPanel(
selectInput(inputId = "x",
            label = "Choose X",
            choices = c("CL", "Economy", "Education", "Envrionment",    "EU",
                        "FP",   "Health",   "Immigration"),
            selected = "Economy"),
selectInput(inputId = "y",
            label = "Choose Y",
            choices = c("CL", "Economy", "Education", "Envrionment",  "EU",
                        "FP",   "Health",   "Immigration"),                
            selected = "Immigration")
),
mainPanel(
showOutput("myChart","Nvd3")
)
))

Github からの csv の読み込みが失敗した場合 (RCurl を読み込む場合はそうではありません)、Github のデータへの直接リンクは次のとおりです: https://github.com/sebastianbarfort/vaa/blob/master/vaa_.csv

4

1 に答える 1

7

これが簡単な修正です。mainPanel行を次のように変更します。チャート div を正しく表示するには、最小の高さを設定する必要があります。これを修正するために修正をプッシュしましたが、まだ小さなバグがあります。今週、rCharts のより包括的な修正を行う予定です。これにより、この問題が処理されますが、このtags$style行を追加する必要はありません。

mainPanel(
  div(class='wrapper',
    tags$style(".Nvd3{ height: 400px;}"),
    showOutput("myChart","Nvd3")
  )
)

ノート。Shiny で使用する場合、Shiny の入力は文字列として解釈されるため、式以外のインターフェイスを使用することをお勧めします。将来のバージョンでは、この要件が緩和される可能性があります。したがって、たとえば、プロットを初期化する行は次のようになります

p2 <- nPlot(x = input$x, y = input$y, group = 'X.1', 
  data = df___, type = 'scatterChart')

編集。devrChartsのバージョン (devブランチ) がインストールされている場合は、Shiny を必要とせずに、アプリケーションにあるような基本的なコントロールを追加できます。これがあなたがそれをする方法です。この機能はまだ実験段階であり、API はコード ベースを簡素化するにつれて変更されるため、注意して使用してください。

require(rCharts)
require(RCurl)
x <- getURL("https://raw.github.com/sebastianbarfort/vaa/master/vaa_.csv")
df___ <- read.csv(text = x)
p2 <- nPlot(Economy ~ Immigration, 
  group = 'X.1', 
  data = df___, 
  type = 'scatterChart'
)
p2$chart(color = c('red', 'blue', 'green',"yellow","yellow","yellow",
  "yellow","yellow")
)
p2$addControls("x", value = "Immigration", values = names(df___)[-c(1:2)])
p2$addControls("y", value = "Economy", values = names(df___)[-c(1:2)])
于 2013-07-14T19:31:12.517 に答える