如何将 server.r 引入全球环境？

Question

在下面的这些代码中，我想将 output$click 带到全局环境中。

最终，我想直接使用选定的值。

即使 Shiny App 被终止，是否可以以 x,y 的形式使用鼠标选择的值？

ui <- fluidPage(

radioButtons("plotType", "Plot Type:", choices = c("ggplotly", "plotly")),

plotlyOutput("plot"

),

verbatimTextOutput("click"),

verbatimTextOutput("brush")

)

server <- function(input, output, session) {

output$plot <- renderPlotly({

# use the key aesthetic/argument to help uniquely identify selected observations

key <- row.names(mtcars)

if (identical(input$plotType, "ggplotly")) {

p <- ggplot(data, aes(x = c(1:nrow(data)) , y = y, colour = factor(WF_ID), key = LOT_CODE)) +

geom_line(color="black") + geom_point()

ggplotly(p) %>% layout(dragmode = "select")

} else {

plot_ly(data, x = ~c(1:nrow(data)), y = ~y, key = ~data$LOT_CODE, mode = 'lines+markers') %>%

layout(dragmode = "select")

}

})

output$click <- renderPrint({

d <- event_data("plotly_click")

if (is.null(d)) "Click events appear here (double-click to clear)" else d

})

}

Answer 1

正如@HubertL 所提到的，在为变量赋值时使用<<-是可能的。 如果您想将一些值保存到变量中以供以后使用，这意味着在您的应用程序终止后，您可以使用这个<<-符。

但是，如果您想在应用程序运行时将变量设为全局变量，则可以使用reactiveValues() 。 在global.R声明您的reactiveValues()将使它们对您链接到ShinyApp每个.R文件可见。 然后，您只需将您的output$click和<-分配给observer()或reactive()到reactiveValues() 。 此外，使用reactiveValues()将保持output$click的“反应性”。 如果output$click更改， reactiveValues()将更改并触发依赖项。