在我的Shiny应用程序中,我有一些来自shinyBS包的模态窗口。我可以像这样调整这些模态窗口的宽度:
tags$head(tags$style(HTML('
.modal-lg {
width: 1200px;
}
#abs_1 {background-color: white;;}
#clear{background-color: turquoise3;;}
#disease{background-color: turquoise3;;}
#bleach{background-color: turquoise3;;}
#regionSelect{background-color: turquoise3;;}
#yearSelect{background-color: turquoise3;;}
#speciesSelect{background-color: turquoise3;;}
')))
更改width参数中的像素数会改变模态窗口的宽度。但是,如果我使用高度而不是宽度,则更改像素数对模态窗口的高度没有影响。为什么会这样?
答案 0 :(得分:3)
您想要修改模态体的高度。试试这个:
library(shiny)
library(shinyBS)
shinyApp(
ui = basicPage(
actionButton("show1", "Show modal dialog"),
actionButton("show2", "Show modal dialog"),
tags$head(tags$style("#boxPopUp1 .modal-dialog{ width:1000px}")),
tags$head(tags$style("#boxPopUp1 .modal-body{ min-height:700px}")),
tags$head(tags$style("#boxPopUp2 .modal-dialog{ width:100px}")),
tags$head(tags$style("#boxPopUp2 .modal-body{ min-height:100px}")),
bsModal('boxPopUp1', 'Big','test'),
bsModal('boxPopUp2', 'Small','test')
),
server = function(input, output,session) {
observeEvent(input$show1, {
toggleModal(session, "boxPopUp1", toggle = "toggle")
})
observeEvent(input$show2, {
toggleModal(session, "boxPopUp2", toggle = "toggle")
})
}
)
编辑:回答Mark在下面的评论
是的,你可以使用bsModal的id,见下文。例如,第一个样式标记现在适用于所有包含类.modal-dialog的div,它们位于具有id boxPopUp1的div中
EVP_CIPHER_CTX *ctx = EVP_CIPHER_CTX_new();
/*
EVP_EncryptInit(ctx, ...);
EVP_EncryptUpdate(ctx, ...);
EVP_EncryptFinal(ctx, ...);
*/
memcpy(iv, ctx->iv, sizeof(ctx->iv);