我的应用程序中有多个视频播放器，并且正在其中一个屏幕上显示Airplay。但是，当用户离开该屏幕导航时，airplay停止，而当我用视频播放器打开任何其他屏幕时，airplay再次开始。因此，当用户离开所需的屏幕时，我想手动删除/断开airplay，以使Airplay不应在其他屏幕上启动。
答案 0 :(得分：0)
要防止视频从外部播放，您需要将library(shiny)
ui <- fluidPage(
mainPanel(sliderInput('numGroups','Number of Groups',min=1,max=20,value=2,step=1),
uiOutput("allInputs"))
)
server <- function(input, output) {
output$allInputs <- renderUI({
inputTagList <- NULL
inputTagList <- tagList()
## Define options for each input field
opts <- as.list(paste0('Level',1:5))
names(opts) <- sapply(opts,function(x) x)
## Get number of groups from sliderinput
k <- input$numGroups
for(i in 1:k) {
# Define unique input id and label
newInputId <- paste0("group", i)
newInputLabel <- paste("Group levels", i)
newInputId2 <- paste0("name", i)
newInputLabel2 <- paste("Group name", i)
newInputValue2 <- paste("Group",i)
# Define new input
namesInput <- selectizeInput(newInputId, newInputLabel,
choices=opts,
multiple=T)
groupInput <- textInput(newInputId2, label = newInputLabel2, value = newInputValue2)
# Append new input to list of existing inputs
inputTagList <- tagAppendChild(inputTagList, namesInput)
inputTagList <- tagAppendChild(inputTagList, groupInput)
} # return list of inputs
inputTagList
})
}
# Run the application
shinyApp(ui = ui, server = server)
的属性AVPlayer设置为allowsExternalPlayback。此属性的默认值为NO。有关更多信息，请访问LINK