我正在尝试构建一个闪亮的应用程序，其中侧边栏是基于所选选项卡的动态。侧边栏由一个 csv 文件填充。现在它只是读取名为machines.csv 的CSV 文件。我希望能够根据选项卡名称读取例如 austin.csv、dallas.cav。总共将有 7 个标签。我也遇到了情节区域的问题。我希望绘图呈现到正确的选项卡（始终是选定的选项卡）。
我的代码在这里。该应用程序位于http://45.55.208.171:3838/
现在只有前两台机器有数据。而达拉斯选项卡我无法开始工作，因为我似乎无法使用相同的渲染图 ID。不确定如何根据选项卡进行动态处理。
library(shiny)
library(ggplot2)
library(scales)
library(grid)
library(RColorBrewer)
library(lubridate)
library(ggrepel)
library(plyr)
library(dplyr)
library(DT)
library(RCurl)
library(readr)
library(stringr)
Machine <-read.csv("machines.csv")
Sys.setenv(TZ="US/Central")
SDate <- Sys.Date()
ui <- fluidPage(
titlePanel("Printer Utilization"),
sidebarLayout(
sidebarPanel(width = 2,
radioButtons("typeInput", "Machine", t(Machine[1]) , width = 4),
dateInput("RepDate", "Date of Report",format = "mm-dd-yyyy",value = "08-03-2016"),
downloadButton("downloadplot", "Download")),
mainPanel(
tabsetPanel(id = "plants",
tabPanel("Austin",value = "Austin", plotOutput("plants",width = "120%",height = "600px")),
tabPanel("Dallas",value = "Dallas", plotOutput("Dallas",width = "120%",height = "600px")),
tabPanel("Table", div(DT::dataTableOutput("log"), style …