Question

我已经和R工作了很长时间并且有光泽，但我似乎无法想出这个。我想显示当月的所有日子并突出显示当天。我们说这是2017-10-26。然后我想显示：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

我有这个功能来显示当前日期的天数，但不知道该怎么去：

numberOfDays <- function(date) {
m <- format(date, format="%m")

while (format(date, format="%m") == m) {
date <- date + 1
}

return(as.integer(format(date - 1, format="%d")))
}

date <- as.Date("2017-10-26", "%Y-%m-%d")
days <- numberOfDays(date)

seq(1, days, 1)

结果只是：

 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

但是......我想突出显示当前的这一天。

对于如何解决此问题的任何帮助表示赞赏！

Answer 1

你是如此亲密：

<强> server.R

library(shiny)

shinyServer(function(input, output) {

  numberOfDays <- function(date) {
    m <- format(date, format="%m")

    while (format(date, format="%m") == m) {
      date <- date + 1
    }

    return(as.integer(format(date - 1, format="%d")))
  }

  date <- as.Date(Sys.Date(), "%Y-%m-%d")
  lastday_of_month <- numberOfDays(date)
  current_day <- as.integer(format(Sys.Date(), "%d"))
  before <- 1:(current_day-1)
  after <- (current_day+1):lastday_of_month

  output$days <- renderUI({
    div(
      paste(before, collapse = " "), tags$b(current_day), paste(after, collapse = " ")
    )
  })

})

<强> ui.R

library(shiny)

shinyUI(fluidPage(
  uiOutput("days")
))

“突出显示”当月的一天中的当天

1 个答案: