小编Fel*_*ipe的帖子

如何在r dygraphs中用dyShading来遮蔽周末时段？

我使用下面的代码,但有一个简单的方法吗？

library(lubridate)
library(xts)
library(dygraphs)
dateP<-seq(as.POSIXct("2015-01-01 "), as.POSIXct("2015-02-01 "), by="days")
toto<-rep(6,length(dateP))
tutu<-xts(toto, order.by=dateP)


dateWD<-dateP[isWeekend(dateP, wday = 0:4)]
ok_periods<-0
i=1
j=1
while (i<(length(dateWD)-1)){
  ok_periods[j] <- list(list(from = dateWD[i], to = dateWD[i+1]))
  i=i+2
  j=j+1
}

add_shades<-function(x,periods){
  for(period in periods){
   x<-dyShading(x, from=period$from,to=period$to)
 }
 x
  }
 dygraph(tutu) %>% 
   add_shades(ok_periods)

我想用R中的时间光标构建一个动画地图.

我有时间序列(xts),我想在地图上代表.

library(xts)
library(leaflet)
date<-seq(as.POSIXct("2015-01-01"), as.POSIXct("2015-01-10"), by=86400)
a<-xts(1:10,order.by=date)
b<-xts(5:14,order.by=date)
df = data.frame(Lat = 1:10, Long = rnorm(10),Id=letters[1:10])
leaflet() %>% addCircles(data = df,popup =df$Id)
#popup =paste(df$Id, xts value)  time cursor on the map

有没有办法用传单包来做到这一点？我还没试过rmaps包.

谢谢

编辑:https://github.com/skeate/Leaflet.timeline

当我点击一个按钮时,我想打开一个html链接,这是一个来自shinymaterial包的"材料按钮"

library(shiny)
library(shinymaterial)

ui <- material_page(
   title = "page",
   material_button(
    input_id = "button1",
    label = "label1",
    color = "blue"
  )

server <- function(input, output) {
  }
shinyApp(ui = ui, server = server)

我可以 :

label = a("label1",href="my link",target="_blank")

但是只有当我点击按钮的标签时它才有效.我可以在shinyapp的服务器部分添加我的链接吗？