2013-07-14 119 views
3

當我使用Shiny運行rCharts時,只有陰謀的頂部顯示在我的本地控制檯中。我完全不知道爲什麼這樣,我正在運行rCharts和Shiny的最新開發版本。任何幫助將不勝感激!rcharts nplot僅在運行閃亮時顯示陰謀的頂部

以下兩個文件應完全重現該問題。在此先感謝,塞巴斯蒂安

## 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

+0

請嘗試在另一臺計算機上運行您的示例;我放棄了糾正它。第一行df__是一個剩餘的並給出錯誤。在沒有證書的計算機上,下一個df__存在安全問題;它可能與一些curl-stuff一起工作,但不是簡單的R. –

+0

代碼現在應該工作,只要RCurl加載。如果沒有,我已經在Github上包含了一個到csv的直接鏈接。 –

回答

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') 

編輯。如果您安裝了rCharts的dev版本(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)]) 
+0

Hi @Ramnath,謝謝你的幫助。後者工作完美,但我寧願使用Shiny選項,直到你已經在API上定居。 在閃亮版本,當我改變 P2 < - NPLOT(經濟〜移民,基團= 'X.1',數據= df___, 類型= 'scatterChart') 到 P2 < - NPLOT(輸入$ x〜input $ y,group ='X.1',data = df___, type ='scatterChart') 所有點都顯示在左上角。我的代碼有問題嗎? 感謝您對rCharts和Slidify所做的所有工作,它們都太棒了!最佳,塞巴斯蒂安 –

+0

請參閱我添加的說明,瞭解如何使其與Shiny配合使用。 – Ramnath

+0

不錯,在Chrome下適合我;點效應是非常有幫助的。然而,通常的「在Windows 7,64位本地不在Firefox下」適用。而不是在IE下;這很有趣,因爲我一直認爲這是IE下的一個閃亮問題。 –