Как я могу получить таблицу для печати под изображением, используя al oop в .rmd с word_document? - PullRequest
Новая
       120

Как я могу получить таблицу для печати под изображением, используя al oop в .rmd с word_document?

1 голос
/ 12 июля 2020

Я пытаюсь создать файл .rmd, в котором будут собраны все фотографии полевого дня и сделанные заметки, и будет создан отчет. Я могу получить изображения для печати, но, что бы я ни пробовал, таблица с примечаниями не хочет печатать. Ниже приведен l oop, который я использую: 

for(i in 1:nrow(subset_Inventory_data)) {
  
singlept <- subset_Inventory_data[i,]

picture <- pictureLookup[singlept$GlobalID == pictureLookup$REL_GLOBAL,]

#PRINT PICTURE
plot(image_read(paste(baseURL,picture$UID,sep = "")) %>%
  # image_resize("400x400") %>%
  image_rotate(degrees = 90)
)

#creating table underneath picture
Categories <- c("Latitude", "Longitude", "Road Width", "Conditon", "Lock Present","Additional Notes")

sum_table <- data.frame(Category = character(),
                        Information = character(),
                        stringsAsFactors = FALSE)

sum_table <- rbind(sum_table,Categories,
                   stringsAsFactors = FALSE)

colnames(sum_table) <- Categories

sum_table$Latitude <- sprintf("%f",singlept$LAT)
sum_table$Longitude <-sprintf("%f",singlept$LONG)
sum_table$`Road Width` <- paste(singlept$Gate_Width,"feet")
sum_table$Conditon <- singlept$Condition
sum_table$`Lock Present` <- singlept$GlobalID
sum_table$`Additional Notes` <- singlept$General_Notes

#TRIED FLEXTABLE
ft <- flextable(sum_table)
ft <- fontsize(ft, size = 12)
ft <- autofit(ft)
print(ft)
#TRIED KABLE
print(kable(sum_table,"latex"))
}
...