在Shiny中調整我的output$table的formatRound

我想在我的代碼中獲得一些關于formatRoundmy 的幫助output$table。代碼作業正常，但我想進行這樣的調整：正如你所看到的，我指定formatRound, as is formatRound(c(3:4))，但不是插入4，我想做這樣的事情：c(3:ncol(All))，但是當我這樣做時似乎All找不到物件，如果我插入它也不起作用c(3:last_col())，你知道我如何調整它，也就是說，我不想在 中指定最后一列formatRound嗎？

謝謝！

library(shiny)
library(shinythemes)
library(dplyr)

Test <- structure(list(date2 = structure(c(18808, 18808, 18809, 18810
), class = "Date"), Category = c("FDE", "ABC", "FDE", "ABC"), 
coef = c(4, 1, 6, 1)), row.names = c(NA, 4L), class = "data.frame")



ui <- fluidPage(
  
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 uiOutput('daterange'),
                                 br()
                                 
                               ),
                               mainPanel(
                                 dataTableOutput('table')

                               )
                             ))
  ))

server <- function(input, output,session) {
  
  data <- reactive(Test)

    data_subset <- reactive({
      req(input$daterange1)
      req(input$daterange1[1] <= input$daterange1[2])
      days <- seq(input$daterange1[1], input$daterange1[2], by = 'day')
     All<- subset(data(), date2 %in% days)
     All<-All%>% mutate(date2 = format(ymd(date2), "%d/%m/%Y"))%>%
        mutate(TOTAL = rowSums(across(3:last_col()), na.rm = TRUE)) %>% 
        mutate(across(everything(), ~ replace_na(as.character(.), '-')))
  })
    
  
  output$daterange <- renderUI({
    dateRangeInput("daterange1", "Period you want to see:",
                   start = min(data()$date2),
                   end   = max(data()$date2))
  })
  
  output$table <- renderDataTable({
    data_subset()
     datatable(data_subset(),options = list( columnDefs = list(
          list(className = 'dt-center', targets = "_all")),
        paging = TRUE,  searching = FALSE,pageLength = 10,dom = 'tip',  scrollx=TRUE),    rownames = FALSE) %>%
      formatRound(c(3:4), digits=0)
  })
  
}

shinyApp(ui = ui, server = server)

uj5u.com熱心網友回復：

它是一個反應式物件。 All是在reactive元素內創建的物件，它是不可訪問的。相反，獲取輸出data_subset()并用ncol

      formatRound(3:ncol(data_subset()), digits=0)

-服務器代碼

server <- function(input, output,session) {
  
  data <- reactive(Test)
  
  data_subset <- reactive({
    req(input$daterange1)
    req(input$daterange1[1] <= input$daterange1[2])
    days <- seq(input$daterange1[1], input$daterange1[2], by = 'day')
    All<- subset(data(), date2 %in% days)
    All<-All%>% mutate(date2 = format(ymd(date2), "%d/%m/%Y"))%>%
      mutate(TOTAL = rowSums(across(3:last_col()), na.rm = TRUE)) %>% 
      mutate(across(everything(), ~ replace_na(as.character(.), '-')))
  })
  
  
  output$daterange <- renderUI({
    dateRangeInput("daterange1", "Period you want to see:",
                   start = min(data()$date2),
                   end   = max(data()$date2))
  })
  
  output$table <- renderDataTable({
    data_subset()
    datatable(data_subset(),options = list( columnDefs = list(
      list(className = 'dt-center', targets = "_all")),
      paging = TRUE,  searching = FALSE,pageLength = 10,dom = 'tip',  scrollx=TRUE),    rownames = FALSE) %>%
      formatRound(3:ncol(data_subset()), digits=0)
  })
  
}

shinyApp(ui = ui, server = server)

或者不是data_subset()多次執行，而是將其分配給一個物件并使用該物件

server <- function(input, output,session) {
  
  data <- reactive(Test)
  
  data_subset <- reactive({
    req(input$daterange1)
    req(input$daterange1[1] <= input$daterange1[2])
    days <- seq(input$daterange1[1], input$daterange1[2], by = 'day')
    All<- subset(data(), date2 %in% days)
    All<-All%>% mutate(date2 = format(ymd(date2), "%d/%m/%Y"))%>%
      mutate(TOTAL = rowSums(across(3:last_col()), na.rm = TRUE)) %>% 
      mutate(across(everything(), ~ replace_na(as.character(.), '-')))
  })
  
  
  output$daterange <- renderUI({
    dateRangeInput("daterange1", "Period you want to see:",
                   start = min(data()$date2),
                   end   = max(data()$date2))
  })
  
  output$table <- renderDataTable({
    All <- data_subset()
    datatable(All,options = list( columnDefs = list(
      list(className = 'dt-center', targets = "_all")),
      paging = TRUE,  searching = FALSE,pageLength = 10,dom = 'tip',  scrollx=TRUE),    rownames = FALSE) %>%
      formatRound(3:ncol(All), digits=0)
  })
  
}

shinyApp(ui = ui, server = server)

標籤：r 闪亮的

上一篇：gsub提取字串

下一篇：從ggplot2中的scale_y_time()格式化軸標簽