R에서의 마우스 오버시 불투명도 변경 Shiny

Question

내 R 반짝 이는 응용 프로그램에 절대 패널이 있고 mouseover 동작에 따라 불투명도를 변경하려고합니다. 커서가 패널의 경우, 불투명도 내가 코드를 아래에 시도 1 OrElse라는 0.5

될 것입니다하지만 내가 패널에 원하는

         fluidPage(
             tags$head(tags$style(
              HTML(' 
     #input_date_control {opacity : 0.65;} 
     #sel_date {opacity: 1;}') 
             )), 
           absolutePanel(id = "input_date_control", class = "panel panel-default", fixed = TRUE, 
               draggable = TRUE, top = 60, left = "auto", right = 20, bottom = "auto", 
               width = 230, height = 213, 

    box(title = 'Selector', width = 11.5, status = 'primary', solidHeader = TRUE, 

                tags$head(
                tags$style(
                 ".selectize-dropdown, .selectize-input, .selectize-input { 
                 line-height: 10px; 
                 }" 
)), 

    selectizeInput("disease", label = "Select disease('s)", 
       choices = unique(salmonella_all$Disease), multiple = T, 
       options = list(maxItems = 12, placeholder = 'Select a disease'), 
       selected = "Chlamydia"), 




    dateRangeInput("daterange", "Select date range:", 
       start = "2014-01-07", 
       end = "2017-10-15", 
       min = "2014-01-07", 
       max = "2017-10-15" 
       )))) 

The output of the code

마우스 오버 액션에 관계없이 투명 패널을 만든다 커서가 패널

Answer 1

사용

을 통해 프로그래머없이 마우스를 통해 불투명 한 경우에만 때 투명하게하기