r - Shiny 的应用程序中的条件边栏取决于所选的选项卡

Question

我正在尝试构建一个 Shiny 的应用程序，其中侧边栏是基于所选选项卡的动态。侧边栏由一个 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 = "font-size:50%")))
    )))

server <- function(input, output) {
  output$plants <-renderPlot({
    Sys.setenv(TZ="US/Central")
    SDate <- Sys.Date()
    SDate <-as.POSIXct(SDate,format="%Y%m%d")+18000
    RepDate.1 <- reactive({ as.POSIXct(input$RepDate,format="%Y%m%d", tz="US/Central")}+18000)
    typeInput.1 <- reactive({input$typeInput})
    RDate <- RepDate.1()
    Machine.1<-reactive({subset(Machine,MNames.i==typeInput.1())})
    Serial = Machine.1()$Serial.i
    IP = Machine.1()$IP.i
    Type = Machine.1()$Type.i
    if (Type=="b"){
      if (SDate==RepDate.1())
      {
        extension <- ".ACL"
        logdata <- (read.csv(paste(Serial, as.character(RDate,format="%Y%m%d"), extension, sep = "") , sep = ';'))
        RDate <- RDate-86400
        extension <- ".CSV"
        logdata <- (rbind(read.csv(paste(Serial, as.character(RDate,format="%Y%m%d"), extension, sep = "") , sep = ';'),logdata))
      }
      if (SDate!=RepDate.1())
      {
        extension <- ".CSV"
        try(logdata <- (read.csv(paste(Serial, as.character(RDate,format="%Y%m%d"), extension, sep = "") , sep = ';')))
        RDate <-RDate-86400
        logdata <- (rbind(read.csv(paste(Serial, as.character(RDate,format="%Y%m%d"), extension, sep = "") , sep = ';'),logdata))
        RDate <-RDate+172800
        if (RDate==SDate)
        {extension <- ".ACL"}
        try(logdata <- (rbind(read.csv(paste(Serial, as.character(RDate,format="%Y%m%d"), extension, sep = "") , sep = ';'),logdata)))
      }

      logdata <- subset(logdata, (startdate == as.character(input$RepDate,format="%Y-%m-%d")) | (readydate == as.character(input$RepDate,format="%Y-%m-%d")))
      logdata$jobname <- sub(":.*", "", logdata$jobname)
      logdata$starttime.ct   <- as.POSIXct(paste(logdata$startdate, logdata$starttime, sep = " ", format = "%Y%m%d %H:%M:%S", tz="US/Central"))
      logdata$starttime.ct <- force_tz(logdata$starttime.ct,tzone="US/Central")
      logdata$readytime.ct     <- as.POSIXct(paste(logdata$readydate, logdata$readytime, sep = " ", format = "%Y%m%d %H:%M:%S", tz="US/Central"))
      logdata$readytime.ct <- force_tz(logdata$readytime.ct,tzone="US/Central")
      logdata$idletime.ct     <- as.POSIXct(logdata$idletime, format = "%H:%M:%S")
      logdata$idletime.hour   <-as.POSIXlt(logdata$idletime.ct)$hour + as.POSIXlt(logdata$idletime.ct)$min/60 + as.POSIXlt(logdata$idletime.ct)$sec/3600
      logdata$activetime.ct     <- as.POSIXct(logdata$activetime, format = "%H:%M:%S")
      logdata$activetime.hour   <-as.POSIXlt(logdata$activetime.ct)$hour + as.POSIXlt(logdata$activetime.ct)$min/60 + as.POSIXlt(logdata$activetime.ct)$sec/3600

      Sreadytime <- (strptime(logdata$readytime.ct,format="%Y-%m-%d %H:%M:%S"))
      Sstarttime <- (strptime(logdata$starttime.ct,format="%Y-%m-%d %H:%M:%S"))
      Rtime <- (Sreadytime-Sstarttime)/3600
      Idletime <- (strptime(logdata$idletime.ct,format="%Y-%m-%d %H:%M:%S"))
      Utilization <- sum(logdata$activetime.hour/24)
      Utilization <- paste(round(Utilization*100,digits=1),"%",sep="")
      output <- format(sum(logdata$nofprinteda4bw)+sum(logdata$nofprinteda3bw*2), big.mark=",")
      ymax.r = (logdata$idletime.hour/(logdata$idletime.hour+logdata$activetime.hour))
      logdata$jobname <- strtrim(logdata$jobname, 18)
    }
    if (Type=="c"){
      url <- paste("http://",IP,"/xjutil/log.csv", sep="")
      dat <- readLines(url) 
      dat <- dat[-1]
      dat <- dat[-1]
      varnames <- unlist(strsplit(dat[1], ",")) 
      nvar <- length(varnames)
      varnames<-make.names(varnames, unique=TRUE)
      k <- 1 
      dat1 <- matrix(NA, ncol = nvar, dimnames = list(NULL, varnames))

      while(k <= length(dat)){
        k <- k + 1
        #if(dat[k] == "") {k <- k + 1
        #print(paste("data line", k, "is an empty string"))
        if(k > length(dat)) {break}
        #}
        temp <- dat[k]
        # checks if there are enough commas or if the line was broken
        while(length(gregexpr(",", temp)[[1]]) < nvar-1){
          k <- k + 1
          temp <- paste0(temp, dat[k])
        }
        temp <- unlist(strsplit(temp, ","))
        message(k)
        dat1 <- rbind(dat1, temp)
      }

      dat1 = dat1[-1,]     
      logdata<-as.data.frame(dat1)

      logdata$starttime.ct <-strptime(logdata$timestamp.printing,format="%Y %m %d %H %M %S", tz="US/Central")
      logdata$readytime.ct <-strptime(logdata$timestamp.done.printing,format="%Y %m %d %H %M %S", tz="US/Central")

      logdata$date.timestamp.printing <- as.character(substr(logdata$timestamp.printing, 1, 10))
      logdata$date.timestamp.done.printing <- as.character(substr(logdata$timestamp.done.printing, 1, 10))

      logdata <- subset(logdata, (date.timestamp.printing == as.character(RepDate.1(), format = "%Y %m %d")) | (date.timestamp.done.printing == as.character(RepDate.1(), format = "%Y %m %d")))
      logdata$title <- sub(":.*", "", logdata$title)

      logdata$activetime <- logdata$readytime.ct - logdata$starttime.ct
      Utilization <- sum(logdata$activetime/86400)
      Utilization <- paste(round(Utilization*100,digits=1),"%",sep="")

      output<-format(sum(as.numeric(logdata$total.pages.printed)),big.mark = ",")
      output<-""
      ymax.r = 0
      logdata$jobname <- logdata$title
      logdata$jobname <- strtrim(logdata$jobname, 18)
    }
    if (Type=="a"){
      url <- paste("http://",IP,"/logs/","?C=M;O=D", sep="")
      html <- paste(readLines(url), collapse="\n")
      matched <- str_match_all(html, "<a href=\"(1100.*?)\"")
      links <- matched[[1]][, 2]
      print(links)
      for (i in links[1:15])
      {
        url <- paste("http://",IP,"/logs/", sep="")
        url.a <- paste(url,as.character(i) ,sep = "")
        print(url.a)
        if (exists("logdata")){
          logdata <- rbind(read.csv(url.a, header=TRUE, fill = TRUE, sep = ","), logdata)
        }
        else{
          logdata <- read.csv(url.a, header=TRUE, fill = TRUE, sep = ",")
          print(url.a)
        }
      }
      logdata$size <- logdata$SqFt
      logdata <- logdata %>% distinct(Start.time, .keep_all = TRUE)
      logdata$Start.time <- strptime(logdata$Start.time, format="%a %b %d %H:%M:%S %Y")
      logdata$Total.time <- as.POSIXlt(logdata$Total.time, format = "%H:%M:%S")
      logdata$Total.time <- as.POSIXlt(logdata$Total.time)$hour + as.POSIXlt(logdata$Total.time)$min/60 + as.POSIXlt(logdata$Total.time)$sec/3600
      logdata$readytime.ct <- as.POSIXct(logdata$Start.time)+(logdata$Total.time * 3600)
      logdata$starttime.ct <- as.POSIXct(logdata$Start.time)
      logdata$starttime <- strptime(logdata$starttime.ct,format="%Y-%m-%d")
      logdata$End.time <- as.POSIXct(logdata$Start.time)+(logdata$Total.time * 3600)
      logdata <- subset(logdata, as.character(starttime,format="%Y-%m-%d") == as.character(RepDate.1(),format="%Y-%m-%d") | (strptime(End.time,format="%Y-%m-%d") == as.character(RepDate.1(),format="%Y-%m-%d")))
      Utilization <- (sum(logdata$Total.time))/60
      Utilization <- paste(round(Utilization*100,digits=1),"%",sep="")
      output<-0
      #ymax.r = logdata$SqFt.hr/300
      ymax.r = 0
      logdata$jobname <- logdata$File.name
    }  
    p<-ggplot(logdata, aes(xmin = starttime.ct, xmax = readytime.ct, ymin = 0, ymax = 1-ymax.r, fill = factor(jobname))) + geom_rect(alpha = .9) +
      labs(title=paste(typeInput.1(),RepDate.1(), Utilization, output,sep=" "),x="Time of day",y="Run Time") + theme(legend.position="bottom", legend.title = element_blank(), legend.title = element_text(size=10),legend.title=element_blank()) + guides(fill=guide_legend(nrow=5)) +
      scale_x_datetime(labels = date_format("%H:%M", tz="US/Central"),breaks = date_breaks("1 hour"),expand=c(0,0)) +
      coord_cartesian(xlim = as.POSIXct(c(RepDate.1()+86400,RepDate.1()),format="%Y%m%d %H:%M:%S", tz="US/Central")) +
      scale_y_continuous(labels=percent,expand=c(0,0),limits=c(0,1)) 
    print(p)
    file<-ggsave("myplot.pdf",device = "pdf",plot = p,width=16, height=10,paper="special")
  })

  output$downloadplot <- downloadHandler(

    filename="myplot.pdf",  # desired file name on client 
    content=function(con) {
      file.copy("myplot.pdf", con)
    }
  )
  outputOptions(output, "downloadplot", suspendWhenHidden=FALSE)

}
shinyApp(ui = ui, server = server)

Answer 1

这个怎么样？
在这里，我硬编码 choice_set变量，但我想您可以使用外部数据文件定义它。

key 。

将您的数据保存在 reactiveValues ，因此可以从服务器操作中引用。

使用 observeEvent(input$tabset, ...)仅在更改选项卡集值时触发服务器操作。

使用 updateRadioButtons更改输入组件的属性。

R

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(radioButtons("radio", "radio", c("A", "B"))),
    mainPanel(
      tabsetPanel(id = "tabset",
                  tabPanel("alphabet", value = "alpha"),
                  tabPanel("number", value = "number"))
)))


server <- function(input, output, session)
{
  RV <- reactiveValues(
    choise_set = list(
      alpha = c("A", "B"),
      number = c("1", "2", "3")
    )
  )

  observeEvent(input$tabset, {
    updateRadioButtons(session, "radio",
                       choices = RV$choise_set[[input$tabset]])
  })
}

runApp(list(ui = ui, server = server))