R 使用tabPanel UI重置绘图

这是我的密码：

library(shiny)
library(shinydashboard)
library(ECharts2Shiny)
library(ggplot2)
library(dplyr)
library(shinyjs)

demo <- data.frame(c(5,0,0,1,20,25,14,1,53),
               c(1,1,1,2,12,22,5,1,25),
               c(6,0,0,3,26,38,19,2,65),
               c(0,0,0,0,5,3,0,0,6),
               c(0,1,1,0,1,6,0,0,7),
               c(6,0,1,3,32,47,19,2,78),
               c(2,0,0,1,8,13,10,1,33),
               c(0,0,0,0,0,9,2,0,4),
               c(1,0,0,1,6,4,6,0,23))

names(demo) <- c("M", "F", "O", "B", "C", "Re", "Vi", "Ac", "Co")
row.names(demo) <- c("Az","Bh", "Bi", "Ch", "Ha", "Ka", "N.G", "Ra", "Su") 


ui <- shinyUI(dashboardPage(
    dashboardHeader(title = "reset example"),
    dashboardSidebar(tags$img(src="bar.PNG", style ="text-align:center;")),
    dashboardBody(h3("example"),
        mainPanel( shinyjs::useShinyjs(),
             tabsetPanel(type = "tab",
             tabPanel(h5("1"), infoBox("a,1,1")),
             tabPanel(h5("2"), infoBox("b,2,2")),
             tabPanel(h5("Block wise"), 
    loadEChartsLibrary(), 
    tags$div(id="demo1", 
    style="width:100%;height:500px;"), 
                      deliverChart(div_id="demo1"), 
                      downloadButton("downloadData", "Download Data"),
                      actionButton("reset","reset plot")))))))

server <- shinyServer(function(input,output){
observeEvent(input$reset,{
shinyjs::runjs("location.reload();")
})

output$downloadData <- downloadHandler(
filename = function() {
  paste('data-', Sys.Date(), '.csv', sep='')
},
content = function(con) {
  write.csv(demo, con)
})

renderBarChart(div_id = "demo1", grid_left = '1%', direction = 
               "vertical", data = demo)})

shinyApp(ui,server)

库（闪亮）
图书馆（shinydashboard）
图书馆（电子艺廊）
图书馆（GG2）
图书馆（dplyr）
图书馆（shinyjs）
演示只需将事件重置更改为：

observeEvent（输入$reset{
renderBarChart（div_id=“demo1”，左网格='1%，方向=
“垂直”，数据=演示）
})

你的代码重置了整个画面，如果我理解清楚的话，你只想重置画面。
请注意，如果您没有发布真实代码，您的真实应用程序将需要其他调整。
谢谢Jonny的支持。但有一件事你可以观察到，即下载按钮，这是给我们一个弹出窗口，以保存文件为.csv是不工作的。保存文件时，将文件类型另存为.csv选项未激活。我无法将其保存为.csv文件。你能看看下载按钮的功能吗？再次感谢你。嗨！只需为扩展名为.csv的文件编写所需的名称，即：“my_file.csv”，我尝试过，但该文件以未知格式保存。当我点击保存的文件时，它会要求我以可从列表中选择的格式打开。键入名称后，我们需要从“文件名”栏下方的列表中选择“另存为类型”。