d3heatmap和rcharts不能在Shiny应用程序的不同选项卡中工作

时间:2015-11-16 16:49:32

标签: shiny rcharts

我通过rCharts和d3heatmap库在Shiny应用程序的不同选项卡上(或者实际上是Shiny应用程序的相同选项卡)使用nvd3库制作应用程序时遇到了一些问题。

我在这里做了一个显示问题的小例子,基本上绘制了树形图,但热图不是。如果你摆脱了rCharts选项卡虽然它工作正常。两个库之间有某种冲突吗?

我可以修改第一个问题(d3.tip不是一个函数),注释行开头是#HTML,因此它绘制了彩色框,但是你不能与它们交互,而且rownames不是'' t打印(错误:无法读取属性"应用"未定义)。

library(d3heatmap)
library(shiny)
ui <- fluidPage(

  # HTML('<script src="http://labratrevenge.com/d3-tip/javascripts/d3.tip.v0.6.3.js"></script>'),

  sidebarLayout(
    sidebarPanel(
      h1("A heatmap demo")
      ),
    mainPanel(
      tabsetPanel( # set up tabbed output
        tabPanel("First panel", showOutput("barchart", lib =  "nvd3")),
        tabPanel("Second panel", d3heatmapOutput("heatmap"))
      )
    )
  )
)

server <- function(input, output, session) {
  output$heatmap <- renderD3heatmap({
    d3heatmap(
      mtcars, scale = "column",
      colors = "YlOrRd"
    )
  })

  output$barchart <- renderChart({

    hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male")
    n1 <- nPlot(Freq ~ Hair, group = "Eye", data = hair_eye_male, type = "multiBarChart")
    n1$addParams(dom = 'barchart')

    return(n1)
  })
}
shinyApp(ui, server)

有什么想法吗?

2 个答案:

答案 0 :(得分:2)

确实,只需设置一个响应式用户界面即可。对于未来的访问者,这里有完整的代码

http:/.some.com/controller/images/image_filename

答案 1 :(得分:1)

解决方案基于此question中的答案。我认为这与评估其他评估之前的JavaScript有关。

awk -F" " '{print $0 RS $1, $2, " yyyyyy"}' inputfile

enter image description here