我通过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)
有什么想法吗?
答案 0 :(得分:2)
确实,只需设置一个响应式用户界面即可。对于未来的访问者,这里有完整的代码
http:/.some.com/controller/images/image_filename
答案 1 :(得分:1)
解决方案基于此question中的答案。我认为这与评估其他评估之前的JavaScript有关。
awk -F" " '{print $0 RS $1, $2, " yyyyyy"}' inputfile