Shiny中的温度计符号

Question

我使用Shiny创建应用程序，并希望包含使用symbols()函数创建的温度计图。我写我的温度计情节下面的代码，和它的作品中的情节观众完美的罚款在RStudio：

symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, axes = F)

然而，当我尝试在闪亮使用这个，没有什么显示在页面上。这里是我的代码：

server = function(input, output, session) { ... (not needed for this plot) } ui = fluidPage( tags$div(id="thermometer", style = "height:600px;", symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, axes = F)) ) shinyApp(ui = ui, server = server)

检查页面显示正在创建的股利，但温度计是不存在的。有什么建议么？

Answer 1

为了使情节出现在闪亮，你需要创建一个输出服务器端，然后呈现在用户界面：

server = function(input, output, session) { 
    #... (not needed for this plot) 
    output$thermometer <- renderPlot({ 
    symbols(0, thermometers = cbind(0.3, 9, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5) 
    }) 
} 
ui = fluidPage(
    tags$div(id="thermometer", style = "height:600px;", plotOutput("thermometer")) 
) 
shinyApp(ui = ui, server = server) 

编辑：基于您的评论策划可能是另一种方法：

library(shiny) 

server = function(input, output, session) { 
    #... (not needed for this plot) 
    output$thermometer <- renderPlot({ 
    symbols(0, thermometers = cbind(0.3, 1, 4.1/9), fg = 2, xlab = NA, ylab = NA, inches = 2.5, yaxt='n', xaxt='n', bty='n') 
    }) 
} 
ui = fluidPage(
    tags$div(id="thermometer", style = "height:600px;width:200px;margin:auto", plotOutput("thermometer")) 
) 
shinyApp(ui = ui, server = server) 

这将删除温度计周围的轴和框，使其稍微更明显。