Блог

Я хотел бы иметь возможность автоматически заполнять следующий тест. После каждой фразы вы можете выбрать либо Eens (я согласен), либо Oneens (я не согласен). Для этого я использую RSelenium.

Загрузка моего браузера и первой фразы не представляет никаких проблем. Однако я не могу выбрать ни зеленое, ни красное поле. Я использую следующий код:

  choice_xpath <- "//*[contains(.,'Eens')]"

 choice <- driver$findElement(using = "xpath",
                              choice_xpath)

 choice$clickElement()
  

Когда я выполняю приведенный выше код, возвращается значение NULL. Поскольку ошибка «элемент не найден» не возвращается, я предполагаю, что я нажимаю на элемент, который существует, но на который нельзя щелкнуть. Но я в недоумении, на какой элемент нажать, если это так.

Я думаю, что это html, необходимый для понимания проблемы:

 <script type="text/template" id="statements-tpl"></script> 
<script type="text/template" id="statement-tpl"> 
<span class="prev-button"><span>amp;<</span></span> 
<div class="copy"> 
<div class="copy-inner">{{ copy }}</div> </div> 
<div class="button-wrap"> 
<div class="button-container"> 
<div class="button button-1">
</div> 
</div> 

<div class="button-container"> 
<div class="button button-0"></div> 
</div> 

<div class="button-container no-opinion"> 
<div class="button button-2"></div> 
</div> 
</div> 

<span class="next-button"><span>amp;></span></span>
</script> 

<script type="text/template" id="button-tpl"> 
<div class="button-inner-wrapper"> 
<div class="button-inner{{ selected ? ' selected' : '' }}"> 
<div class="prefix">Jouw antwoord:</div> 
<div class="copy"> {{% if ( type == 2 ) { %}} Geen mening {{% } else if ( type == 0 ) { %}} Oneens {{% } else { %}} Eens {{% } %}} </div> 
<div class="error-tooltip"></div> 
</div> 
</div>
</script> 
  

Попробуйте использовать нижеприведенный локатор, чтобы найти соответствующий элемент :-

• Чтобы найти EENS(Agree) кнопку, попробуйте выполнить:-

   eens <- driver$findElement(using = "css selector", "div.button.button-1")
  eens$clickElement()
    

• Чтобы найти ONEENS(DisAgree) кнопку, попробуйте выполнить:-

   oneens <- driver$findElement(using = "css selector", "div.button.button-2")
  oneens$clickElement()
    

• Чтобы найти GEEN MENING(No Opinion) кнопку, попробуйте выполнить:-

   geenmeening <- driver$findElement(using = "css selector", "div.button.button-0")
  geenmeening$clickElement()