小编Jor*_*dan的帖子

如何禁用闪亮的右键单击Mathjax？例如，请参阅

https://shiny.rstudio.com/gallery/mathjax.html

理想情况下，我希望用户完全不要与mathjax文本进行交互。

我的一般问题是,我希望在所有用户输入enter按钮后显示模态窗口,然后在所有用户单击后关闭actionButton.

我真的很喜欢这样的命令

removeModal(domain="Everyone") 和 showModal(domain="Everyone")

我的方法是填充一个向量,Class$Ready直到所有值都是TRUE,然后创建窗口.基于评论员,一旦满足条件,我就可以在所有用户页面上显示模式窗口.但是我不能为所有用户删除它.

server.R

## Global Variables
Class <<- data.frame(ID=1:10, Ready=rep(FALSE,10) )
GlobClass <<- reactiveValues(Ready=Class$Ready, New=Class$Ready) )

## When Enter is Clicked, Update
observeEvent( input$enter, {
    GlobClass$Ready[ Class$ID == user] <- TRUE
})

## When Everyone has clicked enter, showModal
observeEvent (GlobClass$Ready, {
    if( all(GlobClass$Ready) ){
        showModal( modalDialog(
            h2("Effort"), "Try Harder",
            footer=tagList( actionButton("new", "New Round"))
        ))
     }
})

## When New is Clicked, Update and Hide
observeEvent( input$new, { …

我希望用户能够单击绘图，并且当他们进行记录时，在他们单击的位置留下标记或消息。

我在绘图环境中使用反应值。这似乎是在重置剧情。几乎在消息出现后立即。

这是一个最小的不完全工作的例子

library(shiny)

## ui.R
ui <- fluidPage(
    shinyjs::useShinyjs(),
    column(12,
        plotOutput("Locations", width=500, height=500,
            click="plot_click") )
)


## server.R
server <- function( input, output, session){


    ## Source Locations (Home Base)
    source_coords <- reactiveValues(xy=c(x=1, y=2) )

    ## Dest Coords
    dest_coords <- reactive({
        if (is.null(input$plot_click) ){
            list( x=source_coords$xy[1],
                  y=source_coords$xy[2])
        }  else {
            list( x=floor(input$plot_click$x),
                  y=floor(input$plot_click$y))
        }
    })


    ## Calculate Manhattan Distance from Source to Destination
    DistCost <- reactive({
        list( Lost=sum( abs(
            c(dest_coords()$x, dest_coords()$y) - source_coords$xy
        ) ) )
    })


    ## RenderPlot 
    output$Locations …

如何有效地将矢量转换为矩阵,以便矢量的值确定列,元素排序确定行,然后确定在这些索引处分配的值.

X <- c(1,2,3,1,1,3)
Y <- 1:6 
Z <- myfun(X, Y)

Z ## returns matrix
# 1  NA NA
# NA 2  NA
# NA NA 3
# 4  NA NA
# 5  NA NA
# NA NA 6

我正在寻找比我的for循环更好的单线程

Z0 <- X %o% rep(NA, length(unique(X)))

for(i in 1:length(Y)){  Z0[i, X[i]] <- Y[i] }