主頁 > .NET開發 > 在閃亮的應用程式生成的圖表上擬合圖例

在閃亮的應用程式生成的圖表上擬合圖例

2021-11-27 18:08:37 .NET開發

下面的代碼正常作業，我只是想做一個簡單的修改。請注意，我有兩個 tabPanel，Graph1 和 Graph2。如果您生成圖形，您會注意到它們生成相同的圖形，但在圖形限制和變數名稱方面發生了變化，到目前為止還可以。但是，我想對 Graph2 圖例進行修改。照原樣：The number is:但是，我想顯示The value is:. 對于Graph2傳說是這樣的：legend("topright", legend= paste('US$', round(m,1)),title=" The value is:",title.col = "black", cex = 1.2)。但是，如何在代碼中自動留下它，也就是每當我點擊Graph2時，圖形上就會出現正確的圖例。

可執行代碼如下：

library(shiny)
library(shinythemes)
library(dplyr)
library(tidyverse)
library(lubridate)
library(shinyWidgets)

function.test<-function(){
  
  df1 <- structure(
    list(date1= c("2021-06-26","2021-06-26","2021-06-26","2021-06-26"),
         date2 = c("2021-06-27","2021-07-01","2021-07-02","2021-07-03"),
         Category = c("ABC","ABC","ABC","ABC"),
         Week= c("Saturday","Wednesday","Thurday","Saturday"),
         DR1 = c(5,4,1,1),
         DR01 = c(8,4,1,0), DR02= c(7,4,2,0),DR03= c(6,9,5,0),
         DR04 = c(5,5,4,0),DR05 = c(5,5,4,0),DR06 = c(7,5,4,0),DR07 = c(2,5,4,0),DR08 = c(2,5,4,0)),
    class = "data.frame", row.names = c(NA, -4L))
  
  return(df1)
  
}

f1 <- function(df1, dmda, CategoryChosse, plot = FALSE, var1, var2, gnum=0) {
  
  x<-df1 %>% select(starts_with("DR0"))
  
  x<-cbind(df1, setNames(df1$DR1 - x, paste0(names(x), "_PV")))
  PV<-select(x, date2,Week, Category, DR1, ends_with("PV"))
  
  med<-PV %>%
    group_by(Category,Week) %>%
    summarize(across(ends_with("PV"), median))
  
  SPV<-df1%>%
    inner_join(med, by = c('Category', 'Week')) %>%
    mutate(across(matches("^DR0\\d $"), ~.x   
                    get(paste0(cur_column(), '_PV')),
                  .names = '{col}_{col}_PV')) %>%
    select(date1:Category, DR01_DR01_PV:last_col())
  
  SPV<-data.frame(SPV)
  
  mat1 <- df1 %>%
    filter(date2 == dmda, Category == CategoryChosse) %>%
    select(starts_with("DR0")) %>%
    pivot_longer(cols = everything()) %>%
    arrange(desc(row_number())) %>%
    mutate(cs = cumsum(value)) %>%
    filter(cs == 0) %>%
    pull(name)
  
  (dropnames <- paste0(mat1,"_",mat1, "_PV"))
  
  SPV <- SPV %>%
    filter(date2 == dmda, Category == CategoryChosse) %>%
    select(-any_of(dropnames))
  
  if(length(grep("DR0", names(SPV))) == 0) {
    SPV[head(mat1,10)] <- NA_real_
  }
  
  datas <-SPV %>%
    filter(date2 == ymd(dmda)) %>%
    group_by(Category) %>%
    summarize(across(starts_with("DR0"), sum)) %>%
    pivot_longer(cols= -Category, names_pattern = "DR0(. )", values_to = "val") %>%
    mutate(name = readr::parse_number(name))
  colnames(datas)[-1]<-c(var1,var2)
  datas$days <- datas[[as.name(var1)]]
  datas$numbers <- datas[[as.name(var2)]]
  
  datas <- datas %>% 
    group_by(Category) %>% 
    slice((as.Date(dmda) - min(as.Date(df1$date1) [
      df1$Category == first(Category)])):max(days) 1) %>%
    ungroup
  
  m<-df1 %>%
    group_by(Category,Week) %>%
    summarize(across(starts_with("DR1"), mean))
  
  m<-subset(m, Week == df1$Week[match(ymd(dmda), ymd(df1$date2))] & Category == CategoryChosse)$DR1
  
  if (nrow(datas)<=2){
  val<-as.numeric(m)
  }

  else{
    mod <- nls(numbers ~ b1*days^2 b2,start = list(b1 = 0,b2 = 0),data = datas, algorithm = "port")
    coef<-coef(mod)[2]
    val<-as.numeric(coef(mod)[2])
  }
  
  
  if(plot){
    
  maxrange <-  range(0, datas$numbers, na.rm = TRUE)
  maxrange[2] <- maxrange[2]   10 
  
  if (gnum) maxrange[2] <- maxrange[2]   40 
  max<-max(0, datas$days, na.rm = TRUE) 1
  limx = c(0,max)
  limy = c(0,maxrange[2])
  
  plot(numbers ~ days,  xlim= limx, ylim= limy, xlab = var1, ylab=var2,
  xaxs='i',data = datas,main = paste0(dmda, "-", CategoryChosse))

    if (nrow(datas)<=2){
      abline(h=m,lwd=2) 
      points(0, m, col = "red", pch = 19, cex = 2, xpd = TRUE)
      text(.1,m  .5, round(m,1), cex=1.1,pos=4,offset =1,col="black")
      legend("topright",  legend= round(m,1),title="The number is:",title.col = "black", cex = 1.2)
      #legend("topright",  legend= paste('US$', round(m,1)),title=" The value is:",title.col = "black", cex = 1.2)
    }

    else{
      new.data <- data.frame(days = with(datas, seq(min(days),max(days),len = 45)))
      new.data <- rbind(0, new.data)
      lines(new.data$days,predict(mod,newdata = new.data),lwd=2)
      points(0, coef, col="red",pch=19,cex = 2,xpd=TRUE)
      text(.99,coef   1,max(0, round(coef,1)), cex=1.1,pos=4,offset =1,col="black")
      legend("topright",legend= round(coef,1),title="The number is:",title.col = "black", cex = 1.2)
      #legend("topright",legend= paste('US$',round(coef,1)),title="The value is:",title.col = "black", cex = 1.2)
    }
    
  }
  
  return(val)

}


ui <- fluidPage(
  
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 uiOutput("date"),
                                 uiOutput("mycode")),
                               
                               mainPanel(
                                 tabsetPanel(
                                 tabPanel("Graph1", plotOutput("graph",width = "100%", height = "600")),
                                 tabPanel("Graph2", plotOutput("graph2",width = "100%", height = "600"))
                               )
                             ))
  )))

server <- function(input, output,session) {
  
  data <- reactive(function.test())
  
  
  output$date <- renderUI({
    req(data())
    all_dates <- seq(as.Date('2021-01-01'), as.Date('2021-01-15'), by = "day")
    disabled <- as.Date(setdiff(all_dates, as.Date(data()$date2)), origin = "1970-01-01")
    dateInput(input = "date2", 
              label = h4("Choose"),
              min = min(data()$date2),
              max = max(data()$date2),
              value = NA,
              datesdisabled = disabled)
    
  })
  
  output$mycode <- renderUI({
    req(input$date2)
    df1 <- data()
    df2 <- df1[as.Date(df1$date2) %in% input$date2,]
    selectInput("code", label = h4("Category"),choices=unique(df2$Category))
  })
  
  output$graph <- renderPlot({
    req(input$date2,input$code)
    var1 = "Days"
    var2 = "Numbers"
    f1(data(),as.character(input$date2),as.character(input$code),var1,var2,plot=TRUE)
  })
  
  output$graph2 <- renderPlot({
    req(input$date2,input$code)
    var1 = "Reserv"
    var2 = "Weekdays"
    f1(data(),as.character(input$date2),as.character(input$code),var1,var2,1,plot=TRUE)
  })

}

shinyApp(ui = ui, server = server)

uj5u.com熱心網友回復：

嘗試這個

library(shiny)
library(shinythemes)
library(dplyr)
library(tidyverse)
library(lubridate)
library(shinyWidgets)

function.test<-function(){
  
  df1 <- structure(
    list(date1= c("2021-06-26","2021-06-26","2021-06-26","2021-06-26"),
         date2 = c("2021-06-27","2021-07-01","2021-07-02","2021-07-03"),
         Category = c("ABC","ABC","ABC","ABC"),
         Week= c("Saturday","Wednesday","Thurday","Saturday"),
         DR1 = c(5,4,1,1),
         DR01 = c(8,4,1,0), DR02= c(7,4,2,0),DR03= c(6,9,5,0),
         DR04 = c(5,5,4,0),DR05 = c(5,5,4,0),DR06 = c(7,5,4,0),DR07 = c(2,5,4,0),DR08 = c(2,5,4,0)),
    class = "data.frame", row.names = c(NA, -4L))
  
  return(df1)
  
}

f1 <- function(df1, dmda, CategoryChosse, plot = FALSE, var1, var2, gnum=0, graf=1) {
  
  x<-df1 %>% select(starts_with("DR0"))
  
  x<-cbind(df1, setNames(df1$DR1 - x, paste0(names(x), "_PV")))
  PV<-select(x, date2,Week, Category, DR1, ends_with("PV"))
  
  med<-PV %>%
    group_by(Category,Week) %>%
    dplyr::summarize(dplyr::across(ends_with("PV"), median))
  
  SPV<-df1%>%
    inner_join(med, by = c('Category', 'Week')) %>%
    mutate(across(matches("^DR0\\d $"), ~.x   
                    get(paste0(cur_column(), '_PV')),
                  .names = '{col}_{col}_PV')) %>%
    select(date1:Category, DR01_DR01_PV:last_col())
  
  SPV<-data.frame(SPV)
  
  mat1 <- df1 %>%
    dplyr::filter(date2 == dmda, Category == CategoryChosse) %>%
    select(starts_with("DR0")) %>%
    pivot_longer(cols = everything()) %>%
    arrange(desc(row_number())) %>%
    mutate(cs = cumsum(value)) %>%
    dplyr::filter(cs == 0) %>%
    pull(name)
  
  (dropnames <- paste0(mat1,"_",mat1, "_PV"))
  
  SPV <- SPV %>%
    filter(date2 == dmda, Category == CategoryChosse) %>%
    select(-any_of(dropnames))
  
  if(length(grep("DR0", names(SPV))) == 0) {
    SPV[head(mat1,10)] <- NA_real_
  }
  
  datas <-SPV %>%
    dplyr::filter(date2 == ymd(dmda)) %>%
    group_by(Category) %>%
    dplyr::summarize(dplyr::across(starts_with("DR0"), sum)) %>%
    pivot_longer(cols= -Category, names_pattern = "DR0(. )", values_to = "val") %>%
    mutate(name = readr::parse_number(name))
  colnames(datas)[-1]<-c(var1,var2)
  datas$days <- datas[[as.name(var1)]]
  datas$numbers <- datas[[as.name(var2)]]
  
  datas <- datas %>% 
    group_by(Category) %>% 
    slice((as.Date(dmda) - min(as.Date(df1$date1) [
      df1$Category == first(Category)])):max(days) 1) %>%
    ungroup
  
  m<-df1 %>%
    group_by(Category,Week) %>%
    dplyr::summarize(dplyr::across(starts_with("DR1"), mean))
  
  m<-subset(m, Week == df1$Week[match(ymd(dmda), ymd(df1$date2))] & Category == CategoryChosse)$DR1
  
  if (nrow(datas)<=2){
    val<-as.numeric(m)
  }
  
  else{
    mod <- nls(numbers ~ b1*days^2 b2,start = list(b1 = 0,b2 = 0),data = datas, algorithm = "port")
    coef<-coef(mod)[2]
    val<-as.numeric(coef(mod)[2])
  }
  
  
  if(plot){
    
    maxrange <-  range(0, datas$numbers, na.rm = TRUE)
    maxrange[2] <- maxrange[2]   10 
    
    if (gnum) maxrange[2] <- maxrange[2]   40 
    max<-max(0, datas$days, na.rm = TRUE) 1
    limx = c(0,max)
    limy = c(0,maxrange[2])
    if (graf==1){
      if (nrow(datas)<=2) leg = round(m,1) else leg = round(coef,1)
      titl = "The number is:"
    }else if (graf==2){
      if (nrow(datas)<=2) leg = paste('US$', round(m,1)) else leg = paste('US$',round(coef,1))
      titl = " The value is:"
    }
    
    plot(numbers ~ days,  xlim= limx, ylim= limy, xlab = var1, ylab=var2,
         xaxs='i',data = datas,main = paste0(dmda, "-", CategoryChosse))
      legend("topright",  legend= leg,title=titl,title.col = "black", cex = 1.2)
    
    if (nrow(datas)<=2){
      abline(h=m,lwd=2) 
      points(0, m, col = "red", pch = 19, cex = 2, xpd = TRUE)
      text(.1,m  .5, round(m,1), cex=1.1,pos=4,offset =1,col="black")
      #legend("topright",  legend= leg,title=titl,title.col = "black", cex = 1.2)
      #legend("topright",  legend= round(m,1),title="The number is:",title.col = "black", cex = 1.2)
      #legend("topright",  legend= paste('US$', round(m,1)),title=" The value is:",title.col = "black", cex = 1.2)
    }
    
    else{
      new.data <- data.frame(days = with(datas, seq(min(days),max(days),len = 45)))
      new.data <- rbind(0, new.data)
      lines(new.data$days,predict(mod,newdata = new.data),lwd=2)
      points(0, coef, col="red",pch=19,cex = 2,xpd=TRUE)
      text(.99,coef   1,max(0, round(coef,1)), cex=1.1,pos=4,offset =1,col="black")
      
      # legend("topright",legend= round(coef,1),title="The number is:",title.col = "black", cex = 1.2)
      #legend("topright",legend= paste('US$',round(coef,1)),title="The value is:",title.col = "black", cex = 1.2)
    }
    
  }
  
  return(val)
  
}


ui <- fluidPage(
  
  shiny::navbarPage(theme = shinytheme("flatly"), collapsible = TRUE,
                    br(),
                    tabPanel("",
                             sidebarLayout(
                               sidebarPanel(
                                 uiOutput("date"),
                                 uiOutput("mycode")),
                               
                               mainPanel(
                                 tabsetPanel(
                                   tabPanel("Graph1", plotOutput("graph",width = "100%", height = "600")),
                                   tabPanel("Graph2", plotOutput("graph2",width = "100%", height = "600"))
                                 )
                               ))
                    )))

server <- function(input, output,session) {
  
  data <- reactive(function.test())
  
  
  output$date <- renderUI({
    req(data())
    all_dates <- seq(as.Date('2021-01-01'), as.Date('2021-01-15'), by = "day")
    disabled <- as.Date(setdiff(all_dates, as.Date(data()$date2)), origin = "1970-01-01")
    dateInput(input = "date2", 
              label = h4("Choose"),
              min = min(data()$date2),
              max = max(data()$date2),
              value = NA,
              datesdisabled = disabled)
    
  })
  
  output$mycode <- renderUI({
    req(input$date2)
    df1 <- data()
    df2 <- df1[as.Date(df1$date2) %in% input$date2,]
    selectInput("code", label = h4("Category"),choices=unique(df2$Category))
  })
  
  output$graph <- renderPlot({
    req(input$date2,input$code)
    var1 = "Days"
    var2 = "Numbers"
    f1(data(),as.character(input$date2),as.character(input$code),var1,var2,plot=TRUE, graf=1)
  })
  
  output$graph2 <- renderPlot({
    req(input$date2,input$code)
    var1 = "Reserv"
    var2 = "Weekdays"
    f1(data(),as.character(input$date2),as.character(input$code),var1,var2,1,plot=TRUE, graf=2)
  })
  
}

shinyApp(ui = ui, server = server)

轉載請註明出處，本文鏈接：https://www.uj5u.com/net/367386.html

標籤：r 闪亮的

上一篇：如何在R中的單個資料幀上迭代應用函式？

下一篇：為foreach()提供的引數無效-Codeignitor

標籤雲
其他(157675) Python(38076) JavaScript(25376) Java(17977) C(15215) 區塊鏈(8255) C＃(7972) AI(7469) 爪哇(7425) MySQL(7132) html(6777) 基礎類(6313) sql(6102) 熊猫(6058) PHP(5869) 数组(5741) R(5409) Linux(5327) 反应(5209) 腳本語言(PerlPython)(5129) 非技術區(4971) Android(4554) 数据框(4311) css(4259) 节点.js(4032) C語言(3288) json(3245) 列表(3129) 扑(3119) C++語言(3117) 安卓(2998) 打字稿(2995) VBA(2789) Java相關(2746) 疑難問題(2699) 细绳(2522) 單片機工控(2479) iOS(2429) ASP.NET(2402) MongoDB(2323) 麻木的(2285) 正则表达式(2254) 字典(2211) 循环(2198) 迅速(2185) 擅长(2169) 镖(2155) 功能(1967) .NET技术(1958) Web開發(1951) python-3.x(1918) HtmlCss(1915) 弹簧靴(1913) C++(1909) xml(1889) PostgreSQL(1872) .NETCore(1853) 谷歌表格(1846) Unity3D(1843) for循环(1842)

熱門瀏覽
  • WebAPI簡介

    Web體系結構： 有三個核心：資源(resource)，URL(統一資源識別符號)和表示 他們的關系是這樣的：一個資源由一個URL進行標識，HTTP客戶端使用URL定位資源，表示是從資源回傳資料，媒體型別是資源回傳的資料格式。 接下來我們說下HTTP. HTTP協議的系統是一種無狀態的方式，使用請求/ ......

    uj5u.com 2020-09-09 22:07:47 more
  • asp.net core 3.1 入口：Program.cs中的Main函式

    本文分析Program.cs 中Main()函式中代碼的運行順序分析asp.net core程式的啟動，重點不是剖析原始碼，而是理清程式開始時執行的順序。到呼叫了哪些實體，哪些法方。asp.net core 3.1 的程式入口在專案Program.cs檔案里，如下。ususing System; us ......

    uj5u.com 2020-09-09 22:07:49 more
  • asp.net網站作為websocket服務端的應用該如何寫

    最近被websocket的一個問題困擾了很久，有一個需求是在web網站中搭建websocket服務。客戶端通過網頁與服務器建立連接，然后服務器根據ip給客戶端網頁發送資訊。 其實，這個需求并不難，只是剛開始對websocket的內容不太了解。上網搜索了一下，有通過asp.net core 實作的、有 ......

    uj5u.com 2020-09-09 22:08:02 more
  • ASP.NET 開源匯入匯出庫Magicodes.IE Docker中使用

    Magicodes.IE在Docker中使用 更新歷史 2019.02.13 【Nuget】版本更新到2.0.2 【匯入】修復單列匯入的Bug，單元測驗“OneColumnImporter_Test”。問題見（https://github.com/dotnetcore/Magicodes.IE/is ......

    uj5u.com 2020-09-09 22:08:05 more
  • 在webform中使用ajax

    如果你用過Asp.net webform， 說明你也算是.NET 開發的老兵了。WEBform應該是2011 2013左右，當時還用visual studio 2005、 visual studio 2008。后來基本都用的是MVC。 如果是新開發的專案，估計沒人會用webform技術。但是有些舊版 ......

    uj5u.com 2020-09-09 22:08:50 more
  • iis添加asp.net網站，訪問提示：由于擴展配置問題而無法提供您請求的

    今天在iis服務器配置asp.net網站，遇到一個問題，記錄一下： 問題：由于擴展配置問題而無法提供您請求的頁面。如果該頁面是腳本，請添加處理程式。如果應下載檔案，請添加 MIME 映射。 WindowServer2012服務器，添加角色安裝完.netframework和iis之后，運行aspx頁面 ......

    uj5u.com 2020-09-09 22:10:00 more
  • WebAPI-處理架構

    帶著問題去思考，大家好！ 問題1：HTTP請求和回傳相應的HTTP回應資訊之間發生了什么？ 1：首先是最底層，托管層，位于WebAPI和底層HTTP堆疊之間 2：其次是 訊息處理程式管道層，這里比如日志和快取。OWIN的參考是將訊息處理程式管道的一些功能下移到堆疊下端的OWIN中間件了。 3：控制器處理 ......

    uj5u.com 2020-09-09 22:11:13 more
  • 微信門戶開發框架-使用指導說明書

    微信門戶應用管理系統，采用基于 MVC + Bootstrap + Ajax + Enterprise Library的技術路線，界面層采用Boostrap + Metronic組合的前端框架，資料訪問層支持Oracle、SQLServer、MySQL、PostgreSQL等資料庫。框架以MVC5，... ......

    uj5u.com 2020-09-09 22:15:18 more
  • WebAPI-HTTP編程模型

    帶著問題去思考，大家好！它是什么？它包含什么？它能干什么？ 訊息 HTTP編程模型的核心就是訊息抽象，表示為：HttPRequestMessage,HttpResponseMessage.用于客戶端和服務端之間交換請求和回應訊息。 HttpMethod類包含了一組靜態屬性： private stat ......

    uj5u.com 2020-09-09 22:15:23 more
  • 部署WebApi隨筆

    一、跨域 NuGet參考Microsoft.AspNet.WebApi.Cors WebApiConfig.cs中配置： // Web API 配置和服務 config.EnableCors(new EnableCorsAttribute("*", "*", "*")); 二、清除默認回傳XML格式 ......

    uj5u.com 2020-09-09 22:15:48 more
最新发布
  • C#多執行緒學習(二) 如何操縱一個執行緒

    <a href="https://www.cnblogs.com/x-zhi/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/2943582/20220801082530.png" alt="" /></...

    uj5u.com 2023-04-19 09:17:20 more
  • C#多執行緒學習(二) 如何操縱一個執行緒

    C#多執行緒學習(二) 如何操縱一個執行緒 執行緒學習第一篇：C#多執行緒學習(一) 多執行緒的相關概念 下面我們就動手來創建一個執行緒，使用Thread類創建執行緒時，只需提供執行緒入口即可。（執行緒入口使程式知道該讓這個執行緒干什么事） 在C#中，執行緒入口是通過ThreadStart代理（delegate）來提供的 ......

    uj5u.com 2023-04-19 09:16:49 more
  • 記一次 .NET某醫療器械清洗系統 卡死分析

    <a href="https://www.cnblogs.com/huangxincheng/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/214741/20200614104537.png" alt="" /&g...

    uj5u.com 2023-04-18 08:39:04 more
  • 記一次 .NET某醫療器械清洗系統 卡死分析

    一：背景 1. 講故事 前段時間協助訓練營里的一位朋友分析了一個程式卡死的問題，回過頭來看這個案例比較經典，這篇稍微整理一下供后來者少踩坑吧。 二：WinDbg 分析 1. 為什么會卡死 因為是表單程式，理所當然就是看主執行緒此時正在做什么? 可以用 ~0s ; k 看一下便知。 0:000> k # ......

    uj5u.com 2023-04-18 08:33:10 more
  • SignalR, No Connection with that ID，IIS

    <a href="https://www.cnblogs.com/smartstar/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/u36196.jpg" alt="" /></a>...

    uj5u.com 2023-03-30 17:21:52 more
  • 一次對pool的誤用導致的.net頻繁gc的診斷分析

    <a href="https://www.cnblogs.com/dotnet-diagnostic/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/3115652/20230225090434.png" alt=""...

    uj5u.com 2023-03-28 10:15:33 more
  • 一次對pool的誤用導致的.net頻繁gc的診斷分析

    <a href="https://www.cnblogs.com/dotnet-diagnostic/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/3115652/20230225090434.png" alt=""...

    uj5u.com 2023-03-28 10:13:31 more
  • C#遍歷指定檔案夾中所有檔案的3種方法

    <a href="https://www.cnblogs.com/xbhp/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/957602/20230310105611.png" alt="" /></a&...

    uj5u.com 2023-03-27 14:46:55 more
  • C#/VB.NET：如何將PDF轉為PDF/A

    <a href="https://www.cnblogs.com/Carina-baby/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/2859233/20220427162558.png" alt="" />...

    uj5u.com 2023-03-27 14:46:35 more
  • 武裝你的WEBAPI-OData聚合查詢

    <a href="https://www.cnblogs.com/podolski/" target="_blank"><img width="48" height="48" class="pfs" src="https://pic.cnblogs.com/face/616093/20140323000327.png" alt="" /><...

    uj5u.com 2023-03-27 14:46:16 more

Copyright © 2010-2020 有解無憂