相关疑难解决方法(0)

给定POSIXct日期时间,如何提取当月的第一天进行聚合？

library(lubridate)

full.date <- ymd_hms("2013-01-01 00:00:21")

这让我很痛苦。

我想 simlpy 有一个带有日期的滑块输入（最好按月步进）并因此更改一个简单的 ggplot_bar 。尽管我可以显示所有内容，但似乎对滑块的更改没有响应：

这是我的代码：

用户界面

library(shiny)

# Define UI for application that draws a histogram
shinyUI(fluidPage(

  # Application title
  titlePanel("St Thomas' Physiology Data Console"),

  # Sidebar with a slider input for the number of bins
  sidebarLayout(
    sidebarPanel(
      sliderInput("DatesMerge",
                  "Dates:",
                  min = as.Date("2006-01-01","%Y-%m-%d"),
                  max = as.Date("2016-12-01","%Y-%m-%d"),
                  value=as.Date("2016-12-01"),timeFormat="%Y-%m-%d")
    ),

    # Show a plot of the generated distribution

      mainPanel(
        tabsetPanel(
          tabPanel("Breath Tests",plotOutput("distPlotLactul")),
    )
  )
))

服务器文件

library(shiny)

source("S:\\Usage.R")

# Define server logic required to draw a histogram
shinyServer(function(input, output) { …

我对R感觉很舒服,很少用Shiny,虽然这不是我的第一个Shiny应用程序.

我有一个带有lon/lat的数据框,以及每个新客户在系统中输入的日期/时间.我还根据startDate变量创建了其他变量,如年,月,周,年 - 月(ym)和年 - 周(yw):

  id      lat       lon  startDate year month week         ym         yw
1  1 45.53814 -73.63672 2014-04-09 2014     4   15 2014-04-01 2014-04-06
2  2 45.51076 -73.61029 2014-06-04 2014     6   23 2014-06-01 2014-06-01
3  3 45.43560 -73.60100 2014-04-30 2014     4   18 2014-04-01 2014-04-27
4  4 45.54332 -73.56000 2014-05-30 2014     5   22 2014-05-01 2014-05-25
5  5 45.52234 -73.59022 2014-05-01 2014     5   18 2014-05-01 2014-04-27

我想用传单映射每个客户(这已经完成),但是我想通过仅显示特定日期范围的新客户来设置我的应用程序的动画.

我想逐步完成月度日期(ym变量:2016-01-01,2016-02-01,2016-03-01 ...),而不是按天(或已经支持的x天),因为每月日期并不总是朝着下个月迈出30天.这是我目前的申请:

library(shiny)
library(leaflet)
library(dplyr)

df <- data.frame(id = 1:5, 
             lat = c(45.53814, 45.51076, …

截至Shiny 0.11,滑块已更改为ion.RangeSlider.

乍一看,它们看起来非常不同,特别是HTML 5皮肤:

......但显然这些新的滑块可以(很多？)比旧的滑块更多.

我想利用新的ion.RangeSlider,特别是这些功能updateSliderInput,这对我来说不适用于旧的滑块.

但是,我似乎无法找到有关如何真正利用新滑块提供的功能的任何文档.

滑块上的文档看起来与0.11之前的文档相同.

RStudio说新的滑块"支持从服务器更新更多属性......"

我的问题是,支持的属性究竟是什么？

此外,看起来有一些皮肤可以改变滑块的外观 - 使用Shiny时这些皮肤是否可以开箱即用？

例如:

我很想使用这个皮肤 - 突然之间旧滑块和新滑块之间的区别并不那么激烈.

谢谢.

我正在使用sliderTextInputshinyWidgets 包。我无法使标签可读。

首先，它们太小了，我已经使用 css 修复了这个问题。但是，现在标签重叠，因此很难阅读它们。

我希望能够执行以下一项或两项操作：

• 将文本倾斜 45 或 90 度，这样标签就不会重叠。

• 减少标签数量，以便它们之间有更多空间。我尝试在choices =参数中执行此操作，但这会阻止选择这些选项。我认为这可能与文本而不是数字有关，因此这可能使这成为不可能。

我曾尝试使用sliderInput，但这会带来不同的问题。我几乎用这个答案让它工作了，但另一个问题是我有输入服务器端，作为 a 输入uiOutput，这是我无法改变的，因为它对不同的元素很重要。这种方法不适用于链接的解决方案 - 我最终得到了足够好的标签，但休息时间是每天而不是每月。

这是一个精简的例子：

使用滑块文本输入（标签重叠）

library(shinydashboard)
library(shinyWidgets)
library(shiny)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
   tags$head(tags$style(type = "text/css", ".irs-grid-text {font-size: 12pt !important;")),
    fluidRow(
      box(uiOutput("month_selection"))
      )
    )
  )

server <- function(input, output) {
  output$month_selection <- renderUI({
    sliderTextInput(
      inputId = "month_select",
      label = "",
      grid = TRUE, 
      force_edges = TRUE,
      choices = seq(from = as.Date("2017-01-01"), to = as.Date("2019-12-31"),by …