rcharts nplot solo parte superior de la gráfica que muestra cuando se ejecuta brillante

shiny

Question

Cuando ejecuto rCharts con Shiny solo aparece la parte superior de la gráfica en mi consola local. No tengo ni idea de por qué sucede esto, estoy ejecutando las últimas versiones de desarrollo de rCharts y Shiny. ¡Cualquier ayuda sería muy apreciada!

Los dos archivos a continuación deben reproducir completamente el problema. Gracias de antemano, Sebastian

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

En caso de que la carga del csv de Github falle (que no debería ocurrir si carga RCurl), aquí hay un enlace directo a los datos en Github: https://github.com/sebastianbarfort/vaa/blob/master/vaa_.csv

Answer 1

Aquí hay una solución rápida. Modifique su línea de mainPanel a lo siguiente. El gráfico div debe tener una altura mínima establecida para que se muestre correctamente. Apreté una solución para corregir esto, pero todavía tiene un error menor. Presionaré una solución más completa para rCharts esta semana, que debería solucionar este problema y no garantizar que agregue la tags$style line.

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

NOTA. Mientras se usa con Shiny, se prefiere usar la interfaz sin fórmula, ya que las entradas Shiny se interpretan como cadenas. Las versiones futuras podrían relajar este requisito. Entonces, por ejemplo, la línea que inicializa la trama sería

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

EDITAR. Si tiene instalada la versión de desarrollo de rCharts (la rama de desarrollo), puede agregar controles elementales como los que tiene en su aplicación, sin necesidad de utilizar Shiny. Aquí es cómo lo harías. Esta característica aún es experimental y la API cambiará a medida que continúo simplificando la base de códigos, por lo que debe usarse con precaución.

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