r - R Datatable: 3 番目の値に基づいて 2 つの列に色を付ける

Question

私はこれを実行することができません。Colorize200dMA は -1、0、または 1 のいずれかです。-1 の場合、'200d MA' は赤のセルで、0 の場合は色付けされず、1 の場合は緑になります。しかし、ほとんどの場合、最終的には何も色付けされないか、赤 (最初の値) のみが色付けされ、緑のものは決して色付けされません。

    datatable(ResultDF,selection = 'single', options=list(dom='ft', pageLength=50)) %>%
    #datatable(ResultDF, options=list(dom='ft')) %>%
      formatStyle(
        '200d MA', 'Colorize200dMA'
        background = styleEqual(c(-1, 1), c('#e6b8b7', '#d8e4bc'))
      ) %>%
#       formatStyle(
#         '50v200d MA', "Colorize50v200dMA",
#         backgroundColor = styleInterval(0, c('#e6b8b7', '#d8e4bc'))
#       ) %>%
      formatDate(c(3,6,8), "toLocaleDateString")
    })