Attribute name checking only goes 1 level deep

This should also warn about yaxis.invalid not being an attribute....

> plot_ly(x = c(1, 2), y = c(1, 2)) %>% add_markers() %>% layout(yaxis = list(invalid = 1), jsksk = list(sadnsa = NA))
Warning message:
'layout' objects don't have these attributes: 'jsksk'
Valid attributes include:
'font', 'title', 'titlefont', 'autosize', 'width', 'height', 'margin', 'paper_bgcolor', 'plot_bgcolor', 'separators', 'hidesources', 'smith', 'showlegend', 'dragmode', 'hovermode', 'xaxis', 'yaxis', 'ternary', 'scene', 'geo', 'mapbox', 'radialaxis', 'angularaxis', 'direction', 'orientation', 'legend', 'annotations', 'shapes', 'images', 'updatemenus', 'sliders', 'calendar', 'barmode', 'bargap', 'mapType'

まず、再現された plot_ly()、add_markers()、layout() の例を実行し、既存のトップレベル警告を出力する属性チェックの経路を調べます。同じ検証によって yaxis.invalid が属性ではないことについても警告され、現在の jsksk 警告の動作が維持されれば完了です。