Question

我正在尝试将fullcalendar htmlwidget构建到我的闪亮应用中。但是，当我尝试过滤掉基础数据框（使用事件）并使用observeEvent再次输出日历时，日历将在主面板中堆叠 - example。我如何使旧的过滤器版本消失并保持当前版本？

server.R

library(fullcalendar)
library(shiny)


server <- function(input, output) {

  df<-data.frame(title = paste("Event", 1:3),
                 start = c("2017-03-01", "2017-11-15", "2017-11-16"),
                 end = c("2017-03-02", "2017-11-17", "2017-11-16"))

  observeEvent(input$typeInput, {
    df$title<-as.character(df$title)
    df<-df[df$title %in% input$typeInput,]
    f<- fullcalendar(data=df)
    output$calendar<-htmlwidgets::shinyRenderWidget(f, fullcalendarOutput,
    env=parent.frame(), quoted = TRUE)

    #output$calendar<-fullcalendar::renderFullcalendar(f)
  })
}

ui.R

library(shiny)
library(fullcalendar)

ui <- fluidPage(
  shinyjs::useShinyjs(),

   titlePanel("Test"),

   sidebarLayout(
      sidebarPanel(
        radioButtons("typeInput", "Product type",
                     choices = c("Event 3", "Event 2"),
                     selected = "Event 3")),

      mainPanel(
        fullcalendarOutput("calendar")
      )
   )
)

编辑：我调查了更多（网页检查闪亮的形式），似乎每个按钮更改创建一个新的html小部件子项（screenshot）。我认为，每次观察到的更改都会重新创建窗口小部件（因为重新运行了观察事件），但事实并非如此。这是默认行为还是与某些.js / .css文件有关？我可以删除小部件并在observe事件部分重新创建它吗？

Answer 1

您想使用reactive而不是observeEvent。此外，您不需要或不想将assingnment放置在观察或反应函数中的输出变量中。

library(fullcalendar) 
library(shiny) 
server <- function(input, output) { 
df <- reactive({
  data.frame(title = paste("Event", 1:3), start = c("2017-03-01", "2017-11-15", "2017-11-16"), end = c("2017-03-02", "2017-11-17", "2017-11-16"))
}) 

f <- reactive({
  df <- df()
  df$title<-as.character(df$title) 
  df<-df[df$title %in% input$typeInput,] 
  fullcalendar(data=df)
})
 output$calendar<-htmlwidgets::shinyRenderWidget(f(), fullcalendarOutput, env=parent.frame(), quoted = TRUE) 

output$calendar<-fullcalendar::renderFullcalendar(f()) 
 }

闪亮的observeEvent复制输出

1 个答案: