0
「レスト」ボタンをクリックしてラジオボタンをオフにしようとしています。 Shinyパッケージを使用してこれらのラジオボタンを生成しています。 ラジオボタン "比較"をクリックし、複数のチェックボックスを持つConditionalPanelを呼び出します。 任意の数のチェックボックスを選択して&をクリックして比較ボタンをクリックします。 [リセット]ボタンをクリックするとConditionalPanelを折りたたんでいます。 またはRadionボタンのチェックを外すと、自動的にConditionalPanelが非表示になります。R(シャイニー)のリセットボタンをクリックするとラジオボタンのチェックを外す
ui.R
sidebarLayout(
sidebarPanel(
selectInput("villNane", "Choose a Village:", choices = c("All","Village1", "Village2","Village3","Village4","Village5"), selected = "All"),
selectInput("YesNo", "Vaccinated/Not Vaccinated:", choices = c("Yes","No")),
radioButtons("compare", "Comparison :", choices="Compare", selected = character(0), inline = FALSE,width = NULL),
conditionalPanel(
condition="input.compare =='Compare'",
checkboxGroupInput(inputId="somevalue", label="Village :",choices=c("Village1","Village2","Village3","Village4","Village5"), selected=NULL, inline=TRUE),
actionButton("compAction", "Compare"),
actionButton("resetAction", "Reset")
)
server.R
if(inAc == 1){
CB <-input$somevalue
if((YN == 'Yes') &(villName=="All")){
layout(matrix(c(1,2,3,4,5), 2,2, byrow = TRUE),widths=c(3,3), heights=c(3,3))
for (val in 1:length(CB)) {
gotData1 <- get(CB[val],vac)
pct <- round(gotData1/sum(gotData1)*100)
lbls <- c("Attack", "Not Attack")
lbls2 <- paste(lbls, "-", pct, "%")
pie(gotData1,labels=lbls2,radius=1.15)
}
}
}