возникли проблемы при использовании selectinput с uioutput - PullRequest
Новая
       4

возникли проблемы при использовании selectinput с uioutput

0 голосов
/ 17 февраля 2020

Я пытаюсь создать функцию, в которой есть одна переменная, которую я хотел бы использовать один selectinput из uioutput в моем блестящем. Но я не могу заставить функцию работать. Однако, если я переключаюсь только на selectinput (не с uioutput), функция работает нормально. Интересно, в чем причина этого? Мне нужно построить эту функцию, используя selectinput с uioutput в этом сценарии. Пожалуйста помоги. Спасибо.

К вашему сведению, что переменная "clicksource2" поступает только из блестящего selectinput, и это работает. Но «Aff2» поступает из selectinput с uioutput, и он не работает вообще.

functionX <- функция (данные, гео2, странаv2, Aff2, поездка, путешествие, клик-источник2, группа, поле) {</p> 

field2<-sym(field)

result1<-data%>%
  dplyr::filter(Aff%in%Aff2)%>%
  dplyr::group_by_(group)%>%
  dplyr::summarise(Total_branch=sum(!!field2))%>%
  dplyr::mutate(Totaln=sum(Total_branch),
                Clicksource_pct=round(Total_branch/Totaln,2))%>%
  dplyr::select(-c(Total_branch,Totaln))%>%
  dplyr::filter(Clicksource%in%clicksource2)

result2<-sum(result1$Clicksource_pct)

result2

}

...