podedplyr executar encadeadosummarise operações em umdata.frame?

Meu data.frame tem a estrutura:

data_df = tbl_df(data)    
data_df %.%
        group_by(col_1) %.%
        summarise(number_of= length(col_2)) %.%
        summarise(sum_of = sum(col_3)) 

Isso faz com que o RStudio encontre umfatal error - R Session Aborted mensagem

Geralmente complyr Eu incluiria essessummarise funciona sem problemas.

ATUALIZAR

Os dados sãoaqui.

O código é:

library(dplyr)

orth <- read.csv('orth0106.csv')
orth_df = tbl_df(orth)


orth_df %.%
    group_by(Hospital) %.%
    summarise(Procs = length(Procedure)) %.%
    summarise(SSIs = sum(SSI))