Rでのマウスオーバー時に不透明度を変更するShiny

Question

私はR光沢のあるアプリに絶対的なPanelを持っていて、mouseoverの動作に応じてその不透明度を変更しようとしています。カーソルがパネル上にある場合は、不透明度は、私は以下のコードを試してみましたが、それは関係なく、マウスオーバーアクションパネルに、私が欲しい

         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

のパネルが透明になり1 orelse 0.5

になりますカーソルがパネル

Answer 1

使用

上のtheresなしにマウスオーバーし、不透明である場合にのみ、ときに透明であることを