此刻我正在使用Rubber,您是否知道不使用第3个零件库的方法? 底页必须是永久的(不可关闭,不会被任何按钮触发,始终显示)并且可拖动(必须通过拖动手势进行展开和折叠)
答案 0 :(得分:1)
如果您不必担心底页必须对齐到不同的位置,则可以使用我制作的以下软件包(snapping_sheet)中的小部件。
或者,如果您不想将其用作第三部分库,则可以在以下位置复制代码并将其用作存储库中的自己的窗口小部件:Github - Snapping sheet
答案 1 :(得分:0)
答案 2 :(得分:0)
使用 DraggableScrollableSheet。举个例子:
data <- data.frame(date=seq.Date(as.Date("2021-03-21"),as.Date("2021-04-21"),"day"),
rad= sample(1:10,32, replace = T))
# Specify rows to be modified
modified <- data$date>=as.Date('2021-04-01') & data$date<=as.Date('2021-04-05')
modified.after <- data$date>as.Date('2021-04-06') & data$date<=as.Date('2021-04-15')
# First question
# data$rad[modified] <- 42
# Second question
data$radnew <- data$rad
cs <- cumsum(data$rad[modified])
data$radnew[modified] <- cs
data$radnew[modified.after] <- tail(cs,1)
data