gpt4 book ai didi

r - 在 Shiny 的网络应用程序中显示错误而不是绘图

转载 作者:行者123 更新时间:2023-12-04 09:49:16 30 4
gpt4 key购买 nike

<分区>

我有一个 Shiny 网络应用程序,其中包含许多情节。每个地 block 都有自己的 SQL 查询来获取数据。有可能其中一个查询返回数据不足的表。如果发生这种情况,那么我想在绘图所在的选项卡中显示一条文本消息。

服务器.R:

library(shiny)
library(RMySQL)

shinyServer(function(input, output, session) {

output$lineGraphOne <- renderPlot({

table <- getDataSomeHowOne()

if(dim(table[1]) < 3) {
error <- paste("Some error message")
} else {
plot(x = as.Date(table$date), y = table$count)
}
})

output$lineGraphTwo <- renderPlot({

table <- getDataSomeHowTwo()

if(dim(table[1]) < 3) {
error <- paste("Some error message")
} else {
plot(x = as.Date(table$date), y = table$count)
}

})
})

ui.R

library(shiny)

shinyUI(navbarPage("Title",
tabPanel("Name",
sidebarLayout(
mainPanel(
tabsetPanel(id = "tabs",
tabPanel("One", plotOutput("lineGraphOne")),
tabPanel("Two", plotOutput("lineGraphTwo"))
)
),
sidebarPanel(
dateInput('queryDate', 'Datum:', value = as.Date("2010-04-09"))
)
)
)
))

如何在相应的选项卡中显示错误字符串而不是绘图?

30 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com