rcharts nplot 반짝 반짝 빛날 때 보여지는 플롯의 상단에만 표시

Question

반짝이는 rCharts를 실행하면 내 로컬 콘솔에 플롯의 상단이 표시됩니다. 나는 이것이 왜 있는지 전혀 모르겠다. 나는 rCharts와 Shiny의 최신 개발 버전을 돌리고있다. 어떤 도움이라도 대단히 감사하겠습니다!

아래의 두 파일은 문제를 완전히 재현해야합니다. Github에서의 CSV를로드 할 경우 사전에 감사합니다, 세바스찬

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

여기에, (당신이 RCurl를로드하지 말아야 경우 어떤) 실패 Github에서의 데이터에 대한 직접 링크입니다 : 여기 https://github.com/sebastianbarfort/vaa/blob/master/vaa_.csv

Answer 1

빠른 수정입니다. 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') 

EDIT가됩니다. dev 버전의 rCharts가 설치되어있는 경우 (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)])